
Das führende Schneider-Magazin 


DM Ö8S0,> sfr6,- 


Joyce 


Oktober 1987 
S.Jahrgang 


PC 1512 


ehr Speicher: 

rweiterungen 
m Überblick 


PC-Pr ogramme 

ikro-CAD 

age-Editor 


ips & Tricks: 


RSX-Compiler 

Macro 

PC1512: " " ' ' 

- ./ 

Menügenerator ^ ' 

unter Basic2 ^ 

yce: 

ocoscript 2 im Test 
estplatten im Vergieich 


DANKE 


... für 10.000 in einem halben Jahr verkaufte STAR-WRITER PC 


Ja, Sie haben richtig gelesen, 
STAR-DIVISION hat in einem 
halben Jahr nach Markteinlührung 
10.000 STAR-WRITER PC an 
zufriedene Anwender verkauft. 
Die vielen positiven Reaktionen 
der begeisterten Anwender, die uns 
angerufen und geschrieben haben, 
zeigen, daß STAR-DIVISION mit 
seinem Programm-Angebot und 
vor allen Dingen mit seiner Preis¬ 
politik genau richtig liegt; denn 
gute Programme müssen nicht 
teuer sein. Das zeigt der Preis von 
STAR-WRITER PC mit DM 398,-. 

Seit dem I. März 1987 haben wir 
die STAR-WRITER PC Version 2.0 
auf den Markt gebracht. In dieser 
Programm-Version sind viele 
Anregungen der Anwender 
berücksichtigt worden. STAR- 
WRITER PC verfügt über eine 
neue Fußnotenverwaltung, arbeitet 
mit der HERCULES-Grafikkarte 
und es steht ein neues überarbeitetes 
Handbuch zur Verfügung. STAR- 
WRITER PC hat nun auch ein 
„Snapshof* Programm, mit dem 
Sie Grafiken aus anderen Program¬ 
men, z. B. LOTUS 123® oder 
MICROSOFT CHART® in den 
Text einbinden können. 


Selbstverständlich hat STAR- 
WRITER PC alle seine anderen 
Vorzüge, die so an ihm geschätzt 
werden, behalten. 

Ob Sie lieber mit der Maus, dem 
Pull-Down-Menue, Funktions¬ 
tasten oder mit Controll-Codes 
arbeiten, dieses Programm paßt 
sich Ihren Fähigkeiten Schritt für 
Schritt an. 


Anfänger oder Profi, STAR- 
WRITER PC hält bewiesener¬ 
maßen allen Ansprüchen stand. 



Bearbeiten Sie bis zu 7 Dokumente 
gleichzeitig auf Ihrem Bildschirm. 
Binden Sie Ihre Grafiken oder 
Fremdgrafiken in den Text ein. 
Erstellen Sie mit Text, Grafik und 
Adressen Ihre Serienbriefe. 

Das ist ja gerade das Besondere an 
STAR-WRITER PC: Sie verfügen 


mit STAR-WRITER PC über 
4 Programme in einem. Ein hervor¬ 
ragendes Textsystem, ein äußerst 
creatives Grafikprogramm, eine 
perfekte Adressverwaltung und ein 
int^riertes DFÜ-Programm mit 
Baudraten von 110 bis 9.600. 

Natürlich können Sie mit STAR- 
WRITER PC wie mit einem 
normalen Taschenrechner rechnen, 
übersichtlich selbstrechnende 
Formulare, Stichwort- und Inhalts¬ 
verzeichnisse erstellen. Sie ver¬ 
wenden Roskeltasten, Macro- 
ftinktion und können mit über 50 
verschiedenen Druckern durch die 
installierten Anpassungen arbeiten. 


Umfangreiche Hilfstexte auf dem 
Bildschirm unterstützen jeden 
Ihrer 'Arbeitsschritte unabhängig 
vom ausfuhriicben Handbuch. 
Holen Sie sich noch heute die neue, 
überarbeitete Version 2.0 von 
STAR-WRITER PC, dann gehören 
auch Sie zu der immer größer 
werdenden zufriedenen STAR- 
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Editorial—| 



Hemmschwelle 


Liehe Leser 

Als Besitzer eines Computers vom Typ Schneider 
CPC, VC-64 o.ä. ist schon nachdem 
Einschalten des Gerätes klar, in welcher 
Programmiersprache die ersten Gehversuche 
unternommen werden. BASIC — diese heiß 
geliebte und dennoch oft geschmähte 
Programmiersprache steht als Teil des 
Betriebssystems sofort mir der entsprechenden 
Bildschirmmeldung zur Verfügung. Gänzlich 
anders sieht jedoch die Situation bei IBM-PC 
und kompatiblen Systemen, zu denen ja auch der 
Schneider PC gehört, aus. Nach dem 
Einschalten des PCs tut sich — nichts! Zunächst 
muß per Software das Betriebssystem geladen, 
der Computer also arbeitsfähig gemacht werden. 
Anschließend tritt die Frage nach der 
entsprechenden Anwendung bzw. 
Programmiersprache auf. Und auf dem PC- 
Markt tummeln sich z-Z. Unmengen an 
verschiedenen Sprachimplementationen, wie 
unsere Kollegen von der Zeitschrift »PASCAL 
International zu berichten wissen. 

Für den Anwender bedeutet dies, größte Sorgfalt 
schon im Vorfeld seiner Computerarbeit walten 
zu lassen. Doch eines haben viele Sprachen, von 
BASIC bis hin zu APL (Sprache für Künstliche 
Intelligenz) auf allen Computersystemen 
gemeinsam: sie »verstehen« allesamt 
ausschließlich ENGLISCH. 

Die in der BRD erhältlichen Importe an Software 
werden zum größten Teil eingedeutscht, 

Herzlichst Ihr 


Programmiersprachen sinddavon bis auf einige 
wenige Ausnahmen ausgenommen (z. B. 
deutsches LOGO). 

Dem deutschen Anwender bleibt somit nur die 
Möglichkeit, dem Computer auf englisch seine 
Wünsche und Befehle mitzuteilen. Vorteil hierbei 
ist, daß die geschriebenen Quell- bzw. 
Sourceprogramme international portabel sind — 
stellen Sie sich mal das Chaos vor, wenn jeder 
Programmierer in seiner Landessprache diese 
eben genannten Programme schreiben würde. 

Also, keine Alternative in Sicht? Lange Zeit sah 
es so aus, doch mit dem BCI-Pascal aus den 
USA (!) kommt nun eine Sprachimplementation 
auf den Markt, die dem Programmierer deutsche 
Befehlswörter erlaubt. Besonders interessant 
dürfte diese Möglichkeitßr 
Programmieranfänger und Lehrinstitute wie 
Schulen oder Universitäten sein, wie zudem auch 
eine Blitzumfrage ergab. Wie sieht es aber mit 
der Portabilität der geschriebenen Programme 
aus? BCI-Pascal »versteht« auch englisch, der 
Anwender kann sogar in beiden Landessprachen 
gleichzeitig programmieren. Das momentan nur 
ßr MS-DOS Computer erhältliche BCI-Pascal 
wird seine Leistungsfähigkeit erst in der 
täglichen Praxis beweisen müssen, die Idee der 
Programmierung in der Landessprache sollte 
aber auf jeden Fall Schule machen. 

Was meinen sie ? 


Stefan Ritter 
Chefredakteur 
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I~ Briefe 


Eine Bitte an unsere Leser 


Die Rubrik »Leserbriefe« ist eine 
Einrichtung für alle Leser, die in 
irgendeiner Form Fragen, Pro¬ 
bleme oder Anregungen zu Pro¬ 
dukten, Programmierproblemen 
oder zu unserer Zeitschrift haben. 
Selbstverständlich sind wir be¬ 
müht, alle Leserfragen zu beant¬ 
worten. Doch haben Sie bitte 
Verständnis, daß wir nicht alle 
eingehenden Briefe persönlich 
beantworten können. Oft errei¬ 
chen uns mehrere Briefe zum 
gleichen Thema, einer davon 
wird dann stellvertretend für alle 
in unserer Zeitschrift beantwor¬ 
tet. Da auch wir nicht alle Fragen 
auf Anhieb beantworten können, 
müssen wir recherchieren. Und 


das dauert bekanntlich seine Zeit! 
Wir möchten hiermit alle PC-Le¬ 
ser noch einmal auf unseren Le¬ 
serservice hinweisen und bitten 
bei der Vielzahl der eingehenden 
Briefe um etwas Geduld. Für ei¬ 
lige Anfragen steht unsere Redak¬ 
tion jeden Mittwoch von 17 bis 20 
Uhr am »Heißen Draht« zur Ver¬ 
fügung. Vielen Dank für Ihr Ver¬ 
ständnis. 

Ihre PC-Redaktion 


PS: Die Redaktion behält sich 
vor, Leserzuschriften in ge¬ 
kürzter Form wiederzugeben. 


Error im Assembler 
(Sonderheft 1/86) 

Ich möchte auf einen kleinen 
Fehler im Assembler-Listing 
aufmerksam machen. Der Be¬ 
fehl Id sp,nn lädt das bc Regi¬ 
ster und nicht wie er sollte, 
das sp Register. Dieser Fehler 
läßt sich durch Einßgen einer 
Zeile 

10655 if ri=0 then rg = 3 
beheben. 

Weiter stimmt Ihre Behaup¬ 
tung nicht, daß der Objektco¬ 
de bei Verwendung von Labels 
bei einem Durchlauf im Spei¬ 
chersteht. Der beigefligte Test 
beweist das. Beispiel: EQU 
&bb06. Erst beim zweiten 
Durchlauf steht hh06 im Spei¬ 
cher. 

Hier wird BC geladen 

AOOOOlOOAO lOLD 
SP,8cA000 
AOOOOlOOAO 
15LD BC,&A000 
AOOö F9 20 LD SP,HL 

Ttöt 1 ein Durchlauf 

A013 21 
A01416 
A015A0 

Nach Einfügen der Zeile 
10655 

A0O0 3100A0 lOLD 
SP,8cA000 

A003 0100A0 15LD 
BC,&A000 
A006F9 20 LDSP,HL 

Test 2 zwei Durchläufe 

A013 21 
A014 6 
A015 BB 

J. Fritsch 


Anmerkung zu GUAZUELA 
Sonderheft 5/87 

Auf den Seiten 159 und 160 
sind die Listings vertauscht. 
Seite 160 ist vor Seite 159 ein¬ 
zugeben. In der Zeile 2160 
muß es statt: 

2160 print “AKTIEN VER¬ 
KAUFEN:... 

2160 print “AKTIEN 
KAUFEN:... 

Ihre CPC-Redaktion 


Reset durch CTRL, SHIFT 
und ESC 

Poke Scbdee.O Rücksetzen 
des Systems mit CTRL, Shift 
und ESC nicht möglich. 

Poke 8cbdee,195 ermög¬ 
licht dies wieder. 

V. Heuser 


Warteschleife einmal 
anders 

Klar, eine Warteschleife pro¬ 
grammiert man mit FOR - 
TO — NEXT. Aber nehmen 
wir einmal an, Sie wollen eine 
Schleife haben, die genau 5 
Sekunden dauert. Dies ge¬ 
schieht mit dieser kleinen Un¬ 
terroutine: 

10000 üag=0:after 
dcaier gosub 

10020 

lOOlOwhile flag=0: 

wendireturn 
10020 Ilag= 1 :retum 

Sie wird mit Gosub 10000 
aufgerufen, wobei die Länge 
der zu wartenden Zeit in der 
Variable »dauer« stehen muß 
(1 Sekunde: dauer=50). Viel¬ 
leicht fragen Sie sich, warum 
man es nicht gleich nur mit 
After macht. Aber nach einem 
After-Befehl steck man in ei¬ 
ner Unterroutine drin, die mit 
Return abgeschlossen werden 
muß. 

J. Köplinger 


DEL ausgetrickst 

Bei dem Ready-To-Use-Tip 
der Ausgabe 6/87 fiel mir auf, 
daß wenn man gleich »DEL« 
drückte, sich der Computer 
aufhing. Meine kleine Erwei¬ 
terung behebt dieses kleine 
Problem. 

1220 jr nz.pruel 
1540 pruef: push af 
1550 xoi a 
1560 cp (hl) 

1570 pop af 
1580 jrnz,cont 
1590 jrz,wait 

Ch. Bechtel 


Hillen zu Diskmat 

1) In der Funktion »SU¬ 
CHEN« wird der Datensatz so 
oft angezeigt, wie der Suchbe¬ 
griff in ihm enthalten ist. Soll 
die Anzeige nur einmal je Satz 
erfolgen, so kann dies durch 
einfiigen von »:s = 8« am Ende 
von Zeile 3930 erreicht wer¬ 
den, wodurch die Such- 
Schleife verlassen wird. 

2) Bei der Prüfung auf Dop¬ 
peleintragungen ist mir aufge¬ 
fallen, daß jeder »File« nur 
einmal aufgenommen wird. 
Dies ist ärgerlich, wenn glei¬ 
che Files mit unterschiedli¬ 
chem »Typ«-Suf¥ix vorhanden 
sind oder das Programm bzw. 
die Datei auf mehreren Dis¬ 
ketten enthalten ist; ein voll¬ 
ständiges Verzeichnis ist dann 
nicht mehr gegeben! Folgen¬ 
de Ergänzungen sorgen dafür, 


daß bei der Prüfung auf Dop- 
peleintragungen neben dem 
Feld File auch Typ und Dis¬ 
ketten Nr. und Seite einbezo¬ 
gen werden. 

1130 Gosub 460:i = 0 
1136 i=i-i- l:if i>ah then 1190 
eise j=i 

1140 j =j -•-1 :if j > an then 1135 
1150 if f$(i,2)<>f$(j,2) then 
1140 

1155 iff$(i,3)<>f$(j,3) 
then 1140 

1160 iff$(i,l)<>f$(j,l) 
then 1140 
1180j=i:goto 1140 

Diese Routine vermeidet au¬ 
ßerdem, daß bereits miteinan¬ 
der verglichene Datensätze 
noch einmal geprüft werden 
(wie im Original-Programm 
von der Databox. 9/86) und 
verkürzt damit die benötigte 
Laufzeit ein wenig. 

R. Mentzel 

Installation von 
TURBO.COM durch 
»Patching« des Programms. 

Die für den Bildschirm erfor¬ 
derlichen Steuercode-Sequen¬ 
zen werden vom Installations¬ 
programm TINST.COM in 
einer Tabelle am Anfang des 
Programmes abgelegt. 
(Adressen 0150...OlCF). 

Mit Hilfe eines »Debuggers« 
(DDT oder SID) kann man 
diese Sequenzen (in hexadezi¬ 
maler Codierung) dort auch 
selbst unterbringen. Im ersten 
Byte steht immer die Länge 
der Sequenz, dann folgen die 
Codebytes. Dementsprechend 
ist im folgenden die Adresse 
des Längenbytes angegeben. 
Lediglich bei der Cursorposi¬ 
tionierung sind noch einige 
zusätzliche Daten erforder¬ 
lich. 

Steuerfunktion Adresse 

Terminalname (Hex- 0153H 
Code für die ASCIT 
Zeichen) 

Terminal-Initialisie- 016BH 
rung 

Terminal-Reset 017BH 

Cursor-Positionierung 018BH 
(Bei einem »norma¬ 
len« Steuercode, wo 
Zeile und Spalte - 
ev. auch umgekehrt 
auf den Code folgt, 
gilt immer OIH in 019BH) 
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Briefe—i 


Offset Zeile 019CH 

Offset Spalte 019DH 

Stellen-Nr. in Sequenz 019EH 
f Spalte 

Stellen-Nr. in Sequenz 019FH 


f. Zeile 

Clear Screen 01A2H 

Cursor Home (falls 01A8H 

seperat erforderlich) 

Delete line 01B4H 

Insert Line OIAEH 

Erase to end of line OlBCH 

Turn off Highlight 01C2H 

Tum on Highlight 01C8H 

Spaltenzahl 0168H 

Zeilenzahl 0169H 


Anmerkung: 

Man kann die Codes für 
HIGHLIGHT ON/OFF auch 
vertauschen. Dann muß man 
aber ein TURN OFF HIGH- 
LIGHTßr Terminal-Reset co¬ 
dieren. 

TURBO. COM Patches för 
den Schneider-CPC: 

AdressePalchesf CP/M2.2 CP/M3.0 


0I53H 

ODH 

ODH 

54H 

43H 

43H 

55H 

SOH 

SOH 

56H 

43H 

43H 

57H 

20H 

20H 

58H 

20H 

20H 

59H 

43H 

43H 

SAH 

SOH 

SOH 

5BH 

2FH 

2FH 

SCH 

4DH 

4DH 

SDH 

20H 

20H 

SEH 

32H 

33H 

SFH 

2EH 

2EH 

60H 

32H 

SOH 

Als Name wurde gewählt: 


CPC 

CP/M 2.2 

CP/M 3.0 

0168H 

SOH 

SOH 

69H 

18H 

18H 

016BH 

OOH 

OOH 

6CH 

OOH 

OOH 

017BH 

OOH 

OOH 

7CH 

OOH 

OOH 

OISBH 

03H 

04H 

SCH 

IFH 

IBH 

SDH 

OOH 

S9H 

SEH 

OOH 

OOH 

SFH 

OOH 

OOH 

19BH 

OIH 

OIH 

9CH 

OIH 

20H 

9DH 

OIH 

20H 

9EH 

02H 

04H 

9FH 

03H 

03H 

01A2H 

OIH 

02H 

A3H 

OCH 

IBH 

A4H 

OOH 

4SH 

01A8H 

OOH 

02H 

A9H 

OOH 

IBH 

AAH 

OOH 

48H 

OIAEH 

OOH 

02H 

AFH 

OOH 

IBH 

BOH 

OOH 

4CH 

01B4H 

OOH 

02H 

BSH 

OOH 

IBH 


B6H 

OOH 

4DH 

OlBCH 

OIH 

02H 

BDH 

12H 

IBH 

BEH 

OOH 

4BH 

01C2H 

OIH 

02H 

C3H 

18H 

IBH 

C4H 

OOH 

71H 

01C8H 

OIH 

02H 

C9H 

18H 

IBH 

CAH 

OOH 

70H 


Hans-Georg Sanner 
Ludwigshafen/Rh. 


Easy Printer Printer 
Troubie 

Uebe Redaktion 
Frage, welches Anwenderpro¬ 
gramm ist das beste seit Con- 
text? Natürlich Easy Printer. 
Einfach toll, Ich würde mir 
von ihnen mehr solche Pro¬ 
gramme wünschen. Hier nun 
ein kleiner Tip. Einige 
Drucker vom Typ NLQ 401 
haben beim Ausdruck 
Bauchschmerzen und machen 
deshalb einen doppelten Zei¬ 
lenvorschub. Dem ist einfach 
abzuhelfen durch diese kleine 
Änderung im Basicteil von 
Designer. 

30100 Print an$;:Tag:Move 
0,16:Print 
“ Drucker 

bereitmachen! ‘';:Print^8, 
CHR$(27) 

;CHR%(49):Gosub 
30000:Move 0,16:Print 
„Drucker 

bereitmachen! “; :Tagoff:Print 
aus%;:Retum 

Willi Wenke 
Bad Neuenahr 

Red.: 

Die Reaktion auf unser Pro¬ 
gramm Easy Printer war 
schier überwältigend. 

Viele unserer Leser sind mit 
Herrn Wenke einer Meinung. 
Jedoch hat es sich gezeigt, daß 
es mit dem einen oder anderen 
Druckertyp noch Hardcopy¬ 
probleme gibt. Leider lassen 
sich diese Probleme nicht im¬ 
mer so einfach umgehen wie 
im Falle des Herrn Wenke. Je¬ 
doch haben wir nicht vor Sie 
mit Ihren Printersorgen allei¬ 
ne zu lassen. Wir sind derzeit 
dabei, in Zusammenarbeit mit 
Herrn Krämer, dem Program¬ 
mautor, eine Easy Printer 
Nachlese vorzubereiten. Zu 
dieser Nachlese gehören zum 


einen noch weitere Drucker¬ 
tips und Anpassungen und 
zum anderen noch ein paar 
kleine Updates des Program¬ 
mes. Nach dieser Nachlese, 
die übrigens für Heft Nr. 
11/87 geplant ist, wird Easy 
Printer noch leistungsfähiger 
und noch »benutzbarer« sein. 

Ihre CPC Redaktion 


Anmerkung zu 
Space Glider (8/87) 

Im Listing 3 muß das Pfund¬ 
zeichen, durch das Gatterzei¬ 
chen {#) ersetzt werden. 

Ihre CPC Redaktion 


Taswordhelp 

Ich beziehe mich auf die Ver¬ 
öffentlichung Ihres Program¬ 
mes Taswordhelp in Heft 
8/87. Dieses Programm läuft 
auf dem CPC 6128 allerdings 
nur, wenn nicht TASWOÜ) 
6128 verwendet wird, was die 
Mehrzahl der 6128-Besitzer 
jedoch tun wird. Um auch bei 
Tasword 6128 die Hilfsseiten 
ändern zu können, sind im 
Programm folgende Änderun¬ 
gen nötig: 

50 memory 20400 
70 

load"tascode2.bin",&5000 
:mode 2 

370 ü c$=chr$(93) then poke 
&7da0+c+1,10:goto 
440:'CTRL-ZEICHEN 
390 ü c$=chi$(91) then poke 
8(7da0+c+1,13:goto 
440:'SHIFT-ZEICHEN 
400 it c$=chr$( 123) then 
poke 8c7da0+c+l,12: 
goto 440: 'PFEIL NACH 
UNTEN 

410 it c$=" >" then poke 
&7da0+c+l,14:goto 
440:'PFEIL NACH 
RECHTS 

420 it c$=" <" then poke 
&7da0+c+l,l 1 :goto 
440:'PFEIL NACH 
LINKS 

430 poke 8c7da0+c+l, 
asc(c$) 

520 sdve "tascode2.bm" 
,b,&5000,8c3ed0 

Natürlich lassen sich all diese 
Änderungen auch mit einem 
Disketten-Monitor durchfuh¬ 
ren, der es erlaubt, sektoren¬ 
weise zu editieren. Man muß 
den entsprechenden Sektor 
nur suchen, was schneller 


Augen auf beini Computerkauf 

1512 diverse Modelle zum SchleuderDreisü 


1640 SWn bulmrk 

1.49000 

1640 SW12 Lau^verke 

1998/00 

1640 Colorn Laufwer< 

199800 

1640 SWJ20-MB Platte 

269000 

1640 Colorßü MB Platte 

134900 

1640 EGA Color 1 L^utwerk 

2 69800 

1640 EGA Color 2 Lautwrl« 

314900 

1640 EGA Color 20 MB Platte 

399800 

20 MByte Filecard inid Contr. 

69600 

20 MBvIe Filecard Laoine 


LT2000 Inklusive Controller 

107990 

20 MB Seagate ST 225 

498iXI 

30 MB Seagate ST 236 

59690 

40 MB Seagate ST 261 

1049,00 

Conlroller Omti 

190,00 

Controller RLL 

279,00 

Spelcheraufrüstkit von 512 auf 640 KByle 

79 00 

Blldschirrililter PC 1512 Isw 1640 

5900 

Sctiulzhaube PC 1512 bzw. 1640 

4995 

Schneider CPC 464 Kevboard 

279 00 

Schneider CPC 6128 mit Grünmonilor 

7490O 

Schneider CPC 6126 mit Farbmonitor 

118900 

Schneider CPC 6128 nur das Kevboard 

64900 

Schneider Monitcr GT 65 

198,00 

Schneider Moniler CTM 644 

59600 

Floppy FO l ZweiUauhnerk 

479,00 

F-1 X Zweillaulwerk 525" 

758,00 

Ml XZweitlaufwerk35' 

758,00 

Fl XFS Zweillaulwerk 5,25' 

658,00 

M l XflS Zweillautwerk 35' 

858,00 

Cumana 3“ Zweillaufwerk 

398,00 

Bille unbedingt Ihren Computertyp angeben, Danke 

Schneider PCW 8256 Jevee 

139600 

Schneider PCW 8512 Jevee mit 


1MByte Lautwerk und 512 KFIAM 

199600 

FD 2 (2 Laufwerk 1 MB lür Jovee) 

54900 

3" Disketten CF 2 DD für 1 MB lautw. 5 Stk 8900 

RAM Erweiterung v. 256 aul 512 KByte 

6900 

Wichtiges Zubehör 1ür Ihren CPC 


3‘ Disketten PanasonicfMaxell CF 2 10 Stk 7900 

35" Disketten Planünum 2 DD 135 tpi lO Stk 3995 

5.25'Diskellen DSIDD Plantinum lOSik 2995 

diloiedochHD96tpi 10 

SIk 4995 

Netzteil MP2für alle CPC 

9900 

RAM Erweiterunoen der Fa Vorte» bis heule nu 


für den CPC 464 bzw. 664 erhältlich 


RAM-Etweiterung SP256 

29800 

RAM Erweiterung SP-512 

39890 

RAM ErviteiterungssaU um 256 KByle 

9800 

Bildschltmfilter lür GT 64/65 

3995 

Bildschirmfilter lür CTM 640/644 

4495 

Monitor DrehluB, stufenloser Neigungswinkel 

3995 

Verlängerungskabel 15 m für CPC 464 

2995 

Oilo tür CPC 664/6120 

3495 

Slaubschützbauben aus welchem Kunstleder, 


schneidergrau, für Inigende Gerate lieferbar: 


KEyboanl 4641664/5120, Monitor gnlnttilor, Dmcker NLO 401, 

DMP 2000/3000, Panasonic 10SO/9Cli91,Epsori, LX-06ifiOa 

je nur 

22,95 

Panasonic 1092/1592 NEC P6, DMP 4000, je nur 24,95 

Epson FX 05, FX-800.FX-1000 je nur 

24,95 

Schutzhaube Rauchglas lür Konsole 


CPC454«64/6l28ie 

2495 

RS 232 C. seneileSchnitlslelte 


CPC 464/564/6120 

140,00 

Akustikkoppler Dalaphon S 21 d 

24900 

Akustlkloppler Dalaphon 


S 23 d/1200 Baud 

36900 

AMX Maus, Software inki. deutschem Handbuch 

279.00 

FOrrnulartraklot zu Drucker NLQ 401 

6995 

Joßlick, Quickshct II 

1795 

Compelllton Pro 5000 mit Mikrosch 

39,95 

JoiGlick-Adapter zum AnschluB ton 2 Ooisticks 

19,95 

DiskellenbpxfQr40Slk 3" bzw 35" 

39,95 

wie oben, jedoch für 40 Stk 5.25' Disk 

49.95 

auch preiswerte Sonderangebote ab Lager Irefetbar 

Oruckerparade ' Druckerparade ‘ Druckerparade ' 

Epson LX 0OO, 

57900 

Epson FX 0OO, 

1.02900 

Epson FX-1000, bred 

129800 

Epson LD-800,24 Nadeln 

1.47900 

Epson LO-1000, breit. 24 Nadeln 

1.92900 

Epson LD25O0. btel 24 Nadeln 

259800 

Epson EX 0OO, 

139600 

Epson EX 1000, breit 

1.69800 

Epson SO 2500 Tinte 

329800 

Color Einbau Set lür EX0OOnOOO 

21900 

EX 8000000 

21900 

Epson HI-8C, 4 Farb-Plotter 

124900 

NEC P 6 absolute Spitze 

117900 

NEC P 6 Color, 

152900 

NEC P 7 breit 

157900 

NEC P 7 Color 

184900 

Pin FeedTraktot P 6 

14900 

PinPeed-Tiaktot P7 

24900 

Bidi.Traklor P 8 

32900 

Biol.-Traklor P 7 

37900 

Star HL 10 mit Interface 

59600 

Star NX15,breil 

124900 

Star ND 10 

94900 

Star NX 15 breil 

124900 

Star NB 24-10 

1.49800 

Star NB 24-15 

1.79800 

Elnzelblatleinzug NL-10 

26900 

DruckeranschluBkabel, CPC 464/664/6128 nur 

3000 

dilo IQr alle Schneider PC 

3000 

Druckersländer, la-Qualilll, Mullllorm 

9800 

Druckersländer Preishil nur 

39 95 

Endlospapier, weiß, Mikroperfortlon 500 Blatt 

1995 

dilo. 1000 Blatt 

34,95 

dilo 2000 Blatt 

49,95 

Auslandslleterung für die Schweiz ab Lager Zürich 

Tornado Computervertrieb GmbH 

Wangener Straße 99 


D-7980 Ravensburg 


Tel. (0751) 3951 


Nur Wrsand, Abfiolung der Geräte nur nach Ab- 

spractie in Ausnahmen möglich 
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Ihr Partner 
für Schneider: 


Schneider CPC 464 

290.- 

Schneider Monitor GT65 

198,- 

Modulator TV 

99.- 

Schneider CPC 6128 m. 

Monltor 

GT65 

798.- 

Schneider PC 1640 m. MM/SD 1688.- 


Alle Typen der PC 1640-Serie sind lieferbar. 
Bitte Anfrage. 


NEC P6 24 Nadeldrucker 


f. CPC u.PC 

1198,- 

Druckerkabel CPC 6128/ 


Centronics 

29,- 

Druckerkabel PC 1512/1640 

19,- 

HC 1512 Erweiterungskit für 


PC 1512 Herkules s/w 

348,- 

Speichererweiterung 640 KB 

80,- 


Software + Spiele in großer Auswahl, 
Bitte Gratislisle anfordern, oder gleich be¬ 
stellen bei: 


Uwe Langheinrich 
Elektronik Center 

Wachterstraße 3, 
8170 Bad Töiz 
Tei.: (08041) 41565 


Ein Preis vergleich 
^ lohnt sich 
y bei 

Com-Pro 

Schnitt¬ 
stellen- 
Umschalter 





z.Bfür 
V.24. X.21 
Centronics 
IEEE 488 
Coax, Twinax 
elektronisch 


A/B- 


Umschaiter 
Centronics 
DM 239,- 




Null Modem 
für V.24 
DM 55,- 


Wir senden Ihnen gerne 
unsere Unterlagen zu. 



Data Communication Products 
Vertriebs-GmbH 
Südliche Münchner Straße 2a 
D-8022 Grünwald 
089/6 41 14 99 


geht, wenn eine Option zum 
»Text in Disc suchen« inte¬ 
griert ist. Beim Arbeiten mit 
einem Disk-Monitor ist aber 
zu beachten, daß vorher die 
kpl. Diskette von überflüssi¬ 
gen *.Bak Dateien gereinigt 
wird und mittels FILECOPY 
iCP/M 2.2) auf eine andere 
Diskette übertragen wird. 
Denn wie allgemein bekannt, 
wird mit ERA »filename« das 
File ja nicht physikalisch ge¬ 
löscht und dann kann es sein, 
daß man die Änderungen in ei¬ 
nem Sektor vornimmt, der zu 
einem File gehört, das schon 
längst gelöscht wurde. Und ei¬ 
nen weiteren Vorteil hat das 
übertragen mit FILE COPYja 
auch noch — man arbeitet mit 
einer optimierten Diskette 
ohne den ganzen Müll, der 
sich im Laufe der Zeit durch 
Speichern und Löschen so an¬ 
sammelt und man hat, falls 
man in seiner Anpassungswut 
ein wenig zu übereifert war, ja 
noch eine Sicherheitsdiskette 
vorliegen. Und solche Sachen 
sollte man nur an einer 
BACKUP-Disc vornehmen. 

Peter Abrell 
Ottobrunn 


DFORM wird aufgerüstet 

ln dem Artikel DFORM ist Ih¬ 
nen leider ein Fehler unterlau¬ 
fen. Sie schreiben darin, daß 
man durch die Spuren 40—43 
und den zusätzlichen Sektor 10 
22K mehr Speicherplatz auf 
der Diskette bekommt. Das ist 
auch richtig. Aber dann sagen 
Sie, daß der Speicherplatz 
dann 213K beträgt. Das ha¬ 
ben Sie auch in das Programm 
DFORM eingebaut. Das ist 
aber nicht richtig, wie folgen¬ 
de Rechnung beweist: 

181K 
+ 22K 

203K 

Solange man auf einer Disket¬ 
te in Ihrem Extendet-Format 
nicht mehr als 203K Daten 
speichert, funktioniert es 
auch. Dann geht es aber nicht 
mehr. Es kommt die Meldung 
»DISC WRITE FAIL«. Das 
kann man verhindern, wenn 
man das Programm DFORM 
folgendermaßen verändert: 


380 DATA EE,28,03,07,00, 
CC,00,3F,00 
410 DATA 2AFC 

Nach dieser Veränderung 
läuft es einwandfrei, solange 
man nicht mehr als 203KDa¬ 
ten speichert. Dann kommt, 
wie es sich gehört die Mel¬ 
dung »DISC FULL«. Nur hat 
man eben wirklich nur 22K 
mehr Speicherplatz. 

Daniel Brockhaus 
Fischerhude 


Oisefree für Joyce 
Heft 9/87 

Auch die freie Kapazität von 
Laufwerk B: läßt sich mit die¬ 
sem Programm erfragen, 
wenn man vor dem Aufruf des 
Maschinenprogramms mit 
GOSUB 50000folgenden Be¬ 
fehl einßgt: 

POKE &HA0OA,I. 

Die Zijfer eins steht für die 
LauflverksnummerB:; A: hat 
die Nummer 0 und M: die 
Nummer 12. 

Guido Keilmann, 
Münster 


Biorhytmus unter Mgx 

Das Programm Biorhytmus ist 
grundsätzlich gut aufgebaut, 
hat aber den Fehler, daß die 
Auswertungsergebnisse zu 
sehr von den exakten Werten 
abweichen. Auf dem Stilleben 
über der Überschrift sind u. a. 
3 Sinuskurven abgebildet. 
Warum nicht mit dem Sinus 
arbeiten? 

Dies ist ganz einfach: Zeile 
1000 wird wie folgt neu ge¬ 
schrieben: 

]000n=sin(6.283I85307/ 

l*r)*100 

Die Zeilen 1010; 1020 und 
1030 entfallen. Nun entstehen 
die richtigen Werte. 

Eine Grafik-Auswertung 
kann, wenn MGX (Joyce 
Vol. 1) verfügbar ist, wie folgt 
erstellt werden (nur mit dem 
Joyce Plus oderauf 512Kauf¬ 
gerüstetem Joyce möglich): 
Mit dem abgeänderten Pro¬ 
gramm Biorhytmus wird eine 
Monatauswertung erstellt. 
Aus dieser wird aus jeder Aus¬ 
wertungsspalte der Tag des 
Monats entnommen der den 
nächsten aus dem Minus kom¬ 
menden 0-Werthat (imfolgen¬ 
den mit »tag« bezeichnet). In 


MGX werden 3 Formeln ein- 
gegeben und zwar: 

Für seelisch : } Funktion 
y(x)= sin (6,283185307/28* 
(x-tag) 

Für geistig : 2 Funktion 
y(x) =sin(6,283185307/33* 
(x-tag) 

Für körperlich : 3 Funktion 
y(x) =sin(6,283185307/23^ 
(x-tag) 

X min wird mit 1 eingegeben, 
X max mit tag(monatsende). 

Walter Bauer 
Balingen 


CHR$ auf dem Joyce 

Unter Mallard-Basic konnte 
man nicht z.B. CHR$(9) auf 
dem Bildschirm Printen. 
Wenn man 

PRINT CHR$f27J + C//Ä$f9) 

eingibt erscheint auf dem 
Bildschirm das Zeichen. Die 
Eingabe kann mit 

POKE 3233.234 

unsichtbar gemacht werden. 
Mit 

POKE 3233,235 

kann man dem Cursor frei auf 
dem Bildschirm bewegen. 

Tobias Rapp 
Maulbronn 


XBC-Compiler vs. 

Mallard Basic 

Mit Interesse habe ich den 
Software Review zum »Exten- 
ded Basic Compiler Basic« in 
PC 8/87 gelesen. Dazu noch 
einige Anmerkungen: 

Ich halte es für einen erhebli¬ 
chen Mangel dieses ansonsten 
sehr ausführliche Reviews, 
wenn die Autoren lediglich 
feststellen, daß die Joyce-Ver¬ 
sion des XBC-Compilers sich 
»vorallem in einigen wenigen 
[!] erweiterten Befehlen« von 
den CPC- Versionen unter¬ 
scheidet, dabei aber völlig un¬ 
erwähnt lassen, daß diese 
»wenigen« Befehle nun gera¬ 
de ßr den Joyce-Anwender er¬ 
hebliche Verbesserungen ge¬ 
genüber dem Mallard Basic 
mit sich bringen: 

So eröffnet einem dieser Com¬ 
piler die Möglichkeit, auf ganz 
»normalem« Wege, d.h. durch 
einfache Basicbefehle wie 
»plot«, »line« usw., Graphi¬ 
ken auf den Bildschirm zu 
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»zaubern«, undzyvarmiteiner 
sehenswerten Geschwindig¬ 
keit! (auch Kreisel). Auf der 
Diskette mitgelieferte Demo¬ 
programme veranschaulichen 
dies recht eindrucksvoll. Au¬ 
ßerdem ist es z.B. möglich, 
mit Hilfe einer kleinen Pro¬ 
grammroutine Text in jeder 
Richtung auf den Bildschirm 
zu positionieren! Der Joyce- 
Bildschirm kann dabei mit ein¬ 
fachen Basicbefehlen in vier 
verschiedene Modi geschaltet 
werden. Um diese neuen Gra¬ 
phikbefehle einzusetzen, be¬ 
darf es übrigens keiner um¬ 
ständlichen Anbindung an die 
»berühmte« GSX-Schnitt- 
stelle! 

Ebenfalls erwähnenswert er¬ 
scheint mir, daß der Compiler 
etliche »Schleifentypen« bie¬ 
tet, die man beim Mallard-Ba- 
sic vergeblich sucht 
(LOOP..., REPEAT..., DO 
... usw.}. 

Ferner verweisen die Autoren 
des Reviews zwar auf den »in¬ 
novativen Stringbefehl« > > 
EDIT(x);a$ < <, der eigent¬ 
liche »Wert« dieses Befehls 
wird allerdings durch die Er¬ 
läuterungen nicht deutlich: 
Dieser Befehl läßt sich näm¬ 
lich als seh r komfortabler Er¬ 
satz für den üblichen INPUT- 
Befehl bei der Eingabe von 
Strings einsetzen. Wenn man 
statt INPUT a$ den Befehl 
EDIT (x);a$ (x kann die Wer¬ 
te 1-255 haben) verwendet, 
stehen einem bei der Eingabe 
sämtliche Editierfunktionen 
zur Verfügung, etwa so, als 
wenn man unter Mallard Ba¬ 
sic eine Programmzeile edi¬ 
tiert. Mit X Imnn man im vor¬ 
aus festlegen, wie lang der 
String maximal werden darf. 
Daß mit dem Compiler auch 
alle Druckefunktionen leicht 
zu steuern sind, sollte auch 
nicht unerwähnt bleiben. 

Voll zustimmen möchte ich 
den Autoren in der Beurtei¬ 
lung des Handbuches: Es ist 
immer wieder verblüffend, 
mit welchem Aufwand man¬ 
che Leute Programme ent¬ 
wickeln und mit wie wenig 
Ehrgeiz oder Geschick Sie 
dlas dazugehörige Handbuch 
erstellen. Es kann doch wohl 
für einen »Insider« nicht so 
schwer sein, ßrBasic-Befehl 
ein [!] ausformuliertes Bei¬ 
spiel zu finden, daß ’laufidhig ’ 


ist und die Funktion des Be¬ 
fehls besser veranschaulicht 
als eine Menge schwer ver¬ 
ständlicher, formelhafter Er¬ 
läuterungen. (Aber vielleicht 
wollte der Autor des Compi¬ 
lerhandbuchs sich wenigstens 
in diesem Punkt nicht über die 
Konstrukteure des Mallard- 
Basic erheben. Dies ist ihm si¬ 
cherlich gelungen!) 

Klaus Wiltsch 
Schauenburg 


Comac-Kasse ein echter 
Reinfall? 

Die Lobeshymne Ihres Mitar¬ 
beiters (übrigens ebenso der 
von ihm bemängelte kleine 
Schönheitsfehler) wäre nur 
dann verständlich, wenn Ihr 
Mitarbeiter bisher ausschließ¬ 
lich manuelle Kassenbuchfüh¬ 
rung gemacht und zu beurtei¬ 
len hätte. Ich habe mehrfach 
mit dem Programm gearbeitet 
(zur Abrechnung verschiede¬ 
ner kleingewerblicher Tätig¬ 
keiten mit Einnahmen-Ausga- 
ben-Überschuß-Rechnung, es 
später dann umgetauscht, da 
es meinen Vorstellungen nicht 
entsprach. 

Dabei ist die Grundstruktur 
des Programmes recht ordent¬ 
lich, die Handhabung recht 
einfach und die festgestellten 
Schwächen wären sicherlich 
von dem Anbieter dieser Soft¬ 
ware bei gutem Willen schnell 
und einfach zu beheben, näm¬ 
lich: 

1. Es fehlt ein zusammenge¬ 
faßter Listenausdruck aller 
Konten (=Saldenliste). 

2. Es fehlen neutrale Konten 
(z. B. für Privatentnahmen und 
-einlagen, Umbuchung von 
Bank auf Kasse, u.ä.) 

3. Es wirdßr jedes Konto im¬ 
mer eine volle DIN A4 Seite 
angedruckt (statt der besseren 
Version mit Seitenvorschub), 
daßr wird das Journal endlos 
ohne Seitenvorschub ge¬ 
druckt. 

4. Es wird immer nur das Bu¬ 
chungsdatum der Voreinstel¬ 
lung vorgeschlagen, statt bes¬ 
ser das Datum der letzten Bu¬ 
chung vorzugeben (Ich habe 
gelegentlich bis zu 20 Buchun¬ 
gen an einem Kalendertag. 
Wenn diese 4 Punkte nicht feh¬ 
len würden, dann wäre die Lo¬ 
beshymne angebracht und der 
Nutzer würde sicherlich auch 


ein paar Mark mehr ßr ein 
solches Programm ausgeben. 
Ein negativer Bestand ist bei 
der Einnahmen-Ausgaben- 
Überschußrechnung eines 
Kleingewerbe- Unternehmers 
oder eines Freiberuflers lei¬ 
der, wenn auch meist nur vor¬ 
übergehend (Bankdarlehen, 
Kontoüberziehungen, private 
Darlehen), nicht ungewöhn¬ 
lich. 

Denn eine Einnahmen-Ausga- 
ben-Überschuß-Rechnung 
vollzieht sich auf Geldkonten 
und Kasse. Also ist derfest ge¬ 
stellte Schönheitsfehler kein 
solcher sondern notwendiger 
Programmbestandteil. 

P. Jungjohann 
Langenhagen 


BasicZ Programme von 
MSDOS 

Herr Martin Kallenbach stellt 
in der letzten Ausgabe die Fra¬ 
ge wie man Basic2 Program¬ 
me von DOS aus starten kön¬ 
ne. Die Antwort der Redaktion 
lautet: 

Basic2 Programme kann man 
nur von GEM aus starten. 

Es stimmt zwar, daß Basic2 
Programme nur unter GEM 
laufen, aber ich glaube Herr 
Kallenbach wollte wissen wie 
man ein Programm mit einem 
Befehl von MSDOS aus aufhi- 
fen kann. 

Mit einer Batch-Datei kann 
man ein Programm direkt auf- 
rufen. Wenn Sie sich die datei 
GEMSTART. BA T ansehen, 
dann finden Sie dort den Be¬ 
fehl ‘>GEMVDI %1 %2 
%3<. Dies brachte mich auf 
die Idee, daß man hier Para¬ 
meter anhängen könnte. Mit 
dem ersten Parameter wird 
das erste Programm aufgeru¬ 
fen, in unserem Fall Basic2, 
mit dem zweiten dann das 
Basic2 Programm. Zuerst 
muß aber mit APPEND der 
Pfad bestimmt werden in dem 
sich das Programm befindet. 
Zum Beispiel: Sie arbeiten auf 
Laufwerk C: und wollen das 
Programm BEISP3. BAS vom 
Laufwerk A: im Unterver¬ 
zeichnis /Basic2/Examples 
starten, dann geben Sie fol¬ 
gende Batch-Datei ein: 

append 

c: \ a; \ basicZ \ examples 
path c: \ :c: \ basic2 


SIGNim 

Computer-Bücher 



Anatomie und interner Aufbau von 
GEM. Die brandneuen, heißen QEM- 
Programme im Praxistest mit vieien 
Anwendungsbeispielen Bitmuster 
auf dem Schirm, Vektorgraphik im 
Hauptspeicher 

Autor: Gerhard Bader 
Umfang: 223 Seiten/zahlr. Abb. 
Preis: DM 48,- 


IRKS fi tlMlfl 

DAS 

JOYCE 

PRAXISBUCH 

CiiEERGÄf\Z[jri(jZUnftAr\D0lJCHi 

hiTADRESSVtftWALTUWjlllD 

KOnPlfTTEnSOFnjARtfiURER 



Dieses Buch ist der unentbehriiche 
Ratgeber für alle Joyce-Anwender. 
Es führt von Grund an die Textverar¬ 
beitung LocoScript heran, nimmt die 
Schwellenar>gst und gibt wertvolle 
Tips für die Praxis 

Autor: Joachim Seidier 

Umfang: 160 Seiten/zahir. Abb. 
Preis: DM 38,- 



Die drei Betriebssysteme des CPC 
6128. Grundiagen des LocomoUve 
BASlCs 1.1. Die wichtigsten Schnei¬ 
der-Programmiersprachen, Graphik, 
Sound und nütziiche Anwendungen 

Autor: Dieter Winkier 

Umfang: 240 Seiten/zahir. Abb. 

Preis: DM 29,80 

Überall, wo es 
Computerbücher gibt. 

Signum Medien Veriag 
Elsenheimerstraße 59 
8000 München 21 
Tel. 089-5705892 
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IDeitere Programme der 
fiutoren iion PRRR PLUS 

FAST 49.- 

CPC mit SP uon uorteK 

- 5-f3Ch schnellere fiusgahe 

- deutscher Zeichensatz 
* CP/M+ Steuerzeichen 

- UI 52 Emulation 
-eigene Zeichensätze 

DIRMflN 49.- 

CPC mit SP uon uorteu 

- über 16000 Einträge 

- Suchen u. Sortieren 

- Oruckerspooler 

- Etikettendruck 

- Bisketlenilsten _ 

TRACER 49.- 

- Tracen durchs ROM 

- Ports iesen/schreiben 

- Breakpoint im ROM 

- disassemblieren 


Preise für 5.25' Diskette 
3"-Diskelle + OM 6.- 
Konfigui ation angeben !l 
Hbndleranfraqen eruiunschl 


PROFISORWARE auf 3“ Disketten | 

I FürCPC464 - 664 - 6128: | 

ADRESS-CK 

39.- DM 

CP;U 2.2 und 30 Je Disk. Dis 1D00 Adressen nach 14 | 

Feldern sorlierüar. Variabler Etikettendruck 


MKTURA-CPC 

79.- OH 

Angenol, Lieferschein. Rechnung 


SAUFINANZ-CmmOL 

199.- DM 

ßaulinanzierungen mci Steuervorteile 


TektMan TektverarbeilunD 

69,- OM 

Copv Man Hardcopy-Programm 

69.- DM 

Small-C (C-Campiler) 

99.- OM 

SPORI-TABEUEN 

49,- DM 

PUR JOYCE PCW UND CPC 6128: 

Wordstar 3J) 

199.- OM 

MAT FlnambucMattong 

164,- DM 

BAUFINANZ-CONTROL II 

279,- DM 

Vers.20ieWinil Srefik, Demo 

30.- OM 

IMMOBIUENVERMlnUINGS-DATEI 

149,- DM 

dBase II, Version 2.41 

189,- DM 

Mulllplan (MICROSOFT) 

199.- OM 

Für JOYCE PCW: 


ADRESS-JOYCE (Wie CPC) 

39.- DM 

ADRESS-CONTROL 

79,- OM 

Serienbriefe mit LocoScripl-Textverarbeiiung 


FAKTURA-8TAN0AR0 

94,- DM 

RecHnung/SulsdhrAiefefechelniAuftragsbestlAnoeboL i 

Datei lor 600 Kunden KompatlDel zu ADRES6 

-CONTROL 1 

Rabatt/MwSt/WährangliaNAhtbarvndge^wIclieft 1 

KopI-, FuB-, Weröelexte, Toile in Reehnungsaeilen 

FAKTURA-CONTROL 11 

169,- DM 

Abbuchen aus Artikeldalei. MIndestbesfend, Petman ln ' 

«nlur, Autom Buchen m Oflene-Poslen-Buchhaltting 

Mahnpr. 600 Kunden 600 Artikel, 1000 Rechn | 

SPORT-TABELLEN 

65,- DM 

PC-Soflware auf 5 1/4" Disketten 

lUrbo C (Borland/US} 

279,- DM 

Quick C(MICFUOlUUS) 

279,- DM I 

Immobilianverwaltung 

1150- DM 

Adrefiverwaltong 

39,- DM 

Vers per h’N zzgl DM 6,- [Ausland 10,-1 

Pprto/Wrp 

Hesbagen * 

EDU 

Eckstr.ll 6113 Babenhausen 3 

1 101(0 60 731619 93 

I 


cd '\gemsys 
gemvdi basic2 beisp3 
cd \ 

Wenn Sie mit APPEND alle 
Pfade bestimmen in denen Sie 
Basic! Programme haben, 
dann können Sie sich eine 
Batch-Datei einrichten mit der 
Sie nur noch den Namen des 
Programms an den Befehl an- 
hängen. 

Philipp Speck 
Appenzell 

Unter MS-DOS durch- 
starten bis zum 
GEM-DESKTOP 

Um vor allem den Besitzern 
des PCI 512SD das Disketten¬ 
wechseln zu ersparen, hier 
eine Anleitung, um eine 
»GEM-DISK«zu erstellen, die 
bis zum GEM-DESKTOP 
durchstartet: 

Zuerst wird eine Diskette als 
MS-DOS Systemdiskette for¬ 
matiert: Systemdiskette 1 in 
Laufwerk A: einlegen und 
»FORMAT B:/S« eingeben. 
Dadurch werden beim Forma¬ 
tieren die verborgenen Sy¬ 
stemdateien »IO:SYS« und 
»MSDOS:SYS« sowie »COM- 
MAND. COM« mit auf jene 
Diskette kopiert. 

Sie brauchen weiter folgende 
Dateien der Systemdiskette 1 
auf ihrer »GEM-DISK«: 
RAMDRIVE.SYS, MOU- 
SE.COM, KEYBGR.EXE, 
ANSI.SYS, CONFIG.SYS und 
DRIVER. SYS. 

Von der Systemdiskette 2 
(GEM-START-Diskette) ko¬ 
pieren Sie: 

A UTOEXEC. BA T, GEM. 
BAT, GEM2.BATund GEM- 
STARTBAT. 

Weiteres: 

GEMSYS \ METAFIL6. SYS 
GEMVDI.EXE 
AMSTRAD.SYS 
ASSIGN.SYS 

GEM BOOT \ SNAPSHOT.ACC 
SNAPSHOT.RSC 
CALCLOCK.ACC 
GEM. EXE 
GEM.RSC 

AUTO\TWODISKS.INF 
AUTOCOPY.BAT 
DRUCNT. COM 
NVRPATCH.EXE 
MAKEAUTO.BAT 
AUTOEXEC.BAT 


Von der Systemdiskette 3 
(GEM-Desktop-Diskette) be¬ 
nötigen Sie: 

GEMDESK \ DESKTOP. APP 
DESKLO.ICN 
DESKTOP. INF 
DESKTOP. RSC 

Ändern Sie die Datei AUTO- 
EXEC.BATum: 

ECHO OFF 

KEYBGR 

MOUSE 

\AUTO\NVRPATCH 
ECHO OFF 

IFNO EXIST C:\COM- 

MAND.COM 

COPY COMMAND, 

COMC:\ > NUL 

SET COMSPEC=C: COM- 

MAND.COM 

IFNO EXIST C: GEM- 

START.BAT COPY GEM- 

START.BAT C:\ > NUL 

PROMPT 

C: \GEMSTART %1 %2 %3 

Wenn Sie 640Kzur Verß- 
gung haben, so definieren 
Sie eine RAMDISK bis zu 
162K. Die entsprechenden 
Zeilen in CONFIG. SYS sol¬ 
len nun so aussehen: 
de vic e=ramdrive. sys 
162 

device=ansi.sys 

Mit 640k nehmen Sie nun 
noch folgende Zeilen in die 
AUTOEXEC.BAT hinein: 

IF NOT EXIST C: \ GEMDESK 
MD C:\GEMDESK 
COPY GEMDESK\*.* 
C;\GEMDESK>NUL 

Wenn Sie diese Änderung in 
A UTOEXEC.BAT vorneh¬ 
men, ist auch die GEM- 
START.BAT wie folgt zu än¬ 
dern: 

PATH C; \ GEM¬ 
DESK; A;\BASIC2 

Letzteres befreit Sie von der 
ständigen Aufforderung, die 
Gem-Desktop Diskette ein¬ 
zulegen, da der Desktop von 
C: aus aufgerufen wird. 

Josef Spindelböck 
Kirchberg in Tirol 


Hilfe, Umstieg von 
Joyce auf PC1512 

In der Ausgabe 8/87 PC 
Schneider International 
habe ich mit großem Inter¬ 
esse den Leserbrief von 
Herrn Dieter Zwinger zum 
Thema »Aufstieg vom Joyce 


auf PC mit Daten« gelesen. 
Herr Zwinger beschreibt hier 
die Möglichkeit, Daten von 3 
Zoll-Disketten auf 51/4 Zoll- 
Disketten derart umzukopie¬ 
ren, daß diese vom Schneider 
PC 1512 unter dem Betriebs¬ 
system DOS 3.2 weiterverar¬ 
beitet werden können. 

Ich benötige die Daten von 3 
Disketten (Textverarbeitung 
Locoscript im Joyce Format: 
3 CF2DD Daten-Disketten 
720 KB) zur Weiterverarbei¬ 
tung auf dem neuen Schneider 
PC (Betriebssystem MS DOS 
3.2). Selbstverständlich wür¬ 
de ich das Umkopieren hono¬ 
rieren. Wer kann mir weiter¬ 
helfen ? 

Winfried Mühe 
Mühlheim Ruhr 


Graphics noch immer’ 
nicht klar 

Als erstes möchte ich Ihrem 
Mitarbeiter H. Kleiner ein 
kleines bißchen weiterhelfen, 
der in der Ausgabe 5/87 S. 117 
endlich Licht in den Graphics- 
Befehl des PC 1512 gebracht 
hat. Erfragte dort am Schluß, 
wie wohl die Graphics-Option 
/P zu formulieren sei. Viel 
weiter bin ich auch nicht ge¬ 
kommen, aber ich habe her- 
ausgeßnden, daß nur Gra- 
phics/P=n (n=0...3) vom 
Rechner akzeptiert wird. War¬ 
um die Ports von 0 bis 3 
durchnumeriert sind, und was 
0,1,2,3 bedeutet war von mir 
nicht heraus zubringen, denn 
mein Schneider schluckt alle 
vier Parameter ohne Fehler¬ 
meldung. Aber ein pfiffiger 
Leser wird das wohl bald im 
Griff haben! 

Jetzt noch zwei Fragen: 

1) Wie bekommt man Farbe 
ins Schneider PC-GEM(Me- 
nueleiste, Fenster, Bars 
usw.), denn das Schwarz-weiß 
ist irgendwie trist, wo man 
doch MS-DOS so farbig ma¬ 
chen kann, wie man will. 

2) Kann man das Basic2-Me- 
nue »Eintrag-Auswahl« ir¬ 
gendwie fest einstellen, so daß 
es grundsätzlich beim Laden 
auf Laufwerk b: zugreift? 
(Auch nach erneutem 
Booten!). 

Andreas Morawietz 
Otzenhausen 
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Antwort auf Leserbrief 
»Tips und Fragen« (8/87) 

6. ^ kann wirklich am Befehl 
'Graphics /R 'liegen. Wird der 
Befehl in die Autoexec.Baf 
Datei eingefugt, erhält man 
den Ausdruck genau wie auf 
dem Bildschirm, also z.B. 
beim GEM-Desktop mit dunk¬ 
ler Schrift auf hellem Hinter¬ 
grund. 

7. Es ist doch möglich, den 
META-Treiber anzusprechen. 
Dazu müssen Sie allerdings 
auf die Uhr und den Taschen¬ 
rechnerverzichten, indem Sie 
die Datei ’Calclock.acc’ im 
Unterverzeichnis ’ \ GEM- 
BOOT' auf der GEM-Startdis- 
kette in ’Calclock' umbenen¬ 
nen (ren \gemboot\calc- 
lock. acc \ gemboot \ calc- 
lock). Außerdem sollten Sie 
die Größe der Ram-Disk mög¬ 
lichst weit herabsetzen, um 
Speicher zu sparen. Dies kön¬ 
nen Sie vom NVR-Programm 
aus. 

Wollen Sie allerdings nicht auf 
die Uhr und den Taschenrech¬ 
nerverzichten, müssen Sie die 
GEM-Startdiskette wie folgt 
ändern: 

a) löschen Sie die Auto- 
exec.Bat Datei 

b) erzeugen Sie folgenderma¬ 
ßen eine neue Datei: 

COPY CON AUTOEXEC ,BAT 
CD\GEMSYS 

GEMVDI 

TZ 

(tZ=Ctrl+Z) 

c) Jetzt können Sie nur noch 
mit Hilfe des NVR-Programms 
die RÄM-Disk auf 0 setzen und 
das System durch einen 
Warmstart (Ctrl+Alt+Del) 
neu starten. Damit ist es auch 
möglich, die Snapshot Routi¬ 
ne unter Basic! zu benutzen, 
womit auch Frage 9 beant¬ 
wortet ist. 

Benedikt van Almsick 
Köln 60 

Toolhex (Heft 2/87) 

Die Idee von Toolhex hat mir 
gut gefallen, jedoch hat das 
Programm eine wesentliche 
Schwäche. Möchte man damit 
einen DATA-Lader abtippen, 
der die zur Kennzeichnung der 
Hexadezimalzahlen notwendi¬ 
gen &-Zeichen nicht erst bei 
den POKE ’s anfängt, sondern 
diese schon in den DATA-Zei- 
len enthält. So hat man außer 


einer eventuellen Prüfsumme 
keine Kontrollmöglichkeit, ob 
die Zeilen richtig sind. Die ab¬ 
gespeicherte Datei läßt sich in 
diesem Fall nicht mit dem 
CHECKSUMMER überprü¬ 
fen. Ein Beispiel hierfür sind 
die DA TA-Lader Eurer neuen 
Serie Profi-RSX. 

Dieser unbefriedigende Zu¬ 
stand hat mich veranlaßt, die 
im beiliegenden Usting auf ge¬ 
führte Ergänzung zu schrei¬ 
ben. Diese Ergänzung eröffnet 
folgende Möglichkeiten 

1. Die Eingabe und Bearbei¬ 
tung der Dateien erfolgt wie 
bisher. 

2. Beim Abspeichem einer 
Datei kann man wählen, ob 
die Zahlenpaare mit oder ohne 
&-Zeichen gesaved werden. 
Dasselbe gilt, wenn die even¬ 
tuell vorhandene Prüfsumme 
hexadezimal ist. Punkt 2 wird 
durch die Programmzeilen 
1362—1460 erledigt. 


Briefe—i 


3. Beim Laden bereits vorhan¬ 
dener Dateien erkennt das 
Programm im Zeile 1155, ob 
in den DATA-Zeilen &-Zei- 
chen vorhanden sind. Ist dies 
der Fall, so verzweigt das 
Programm nach Zeile 1620. 
ln diesem Programmteil wer¬ 
den alle vorhandenen 
&-Zeichen beim Einlesen der 
DATA-Zeilen entfernt, bevor 
durch den RETURN nach 
1155 das Programm abgear¬ 
beitet wird. 


Durch diese Ergänzung zu 
TOOLHEX kann man also alle 
möglichen Arten von DATA- 
Ladem beim abspeichem her¬ 
steilen und diese dann im 
Schnelldurchlauf mit dem 
CHECKSUMMER auf ihre 
Richtigkeit überprüfen. 


Hans-Joachim Jordan 
Leinfelden-Echterdingen 3 



elektro GmbH 

Delsterner Straße 23 

5800 Hagen 1 


Telefon 02331/72608 

Schneider PC 1640 MOlSD 

1698.- DM 

Schneider PC 1640 ECOIDD 

3498.- OM 

Schneid« PC 1640 ECD/HD 20 

4496.-OM 

Schneider PC 1640 MD/HD 20 

3196-OM 

Jetzt lieferbar: 


Herculesaufrüslkit für Schneider PC 1512 

MM 720x346 Bildpunkte 

346,- DM 

Schneider PC 1512 MM/SD 

Schneider PC1512 MMflID 

1349,- DM 

mll Herkules Auhfislkit 

Schneider PC 1512 MM/HD 

2299,- DM 

mH NerkelesauMetkit 

2849.- DM 

Schneider PC 1512 CM/SO 

1S49,- DM 

Schneider PC 1512 MM/OD 

184«,- DM 

Schneider PC 1512 MMfSO 
mH 38 MB Harddisk 

2849,- DM 

Schneider PC1512 CM/SD 
mH 30 MB HaiddfMi 

3349,- OM 

Schneider DMP 3000 

646- DM 

Schr.eiderDMP4000 lürDINAO 

999-DM 

Schneider CPC454 

ab 396,- DM 

Schneider Monochrom-Monitor GT 65 

196- DM 

Schneider Farbmonitor CTM 644 

696- DM 

Schneider Moduiatoi MP 2 

96- DM 

Schneider CPC 6128 mItGTSS 

m.- DM 

Schneider CPC 6128 ml CTM 644 

1299,-DM 

PC-Softwarm 

A3umen Sie Ihre FeslpIaHe auf, mit: 
Disk Oplimizcr 

m- DM 

Sie müssen meliitie Programms zur 
gleichen Zeit zur Vettügung halten? 
Wachsein Sie eus dam faulenden Pro¬ 
gramm in ein anderes, das gerade be- 
rnllgl wird. Bis zu 10 Programnie in 
Sakundenschnella ansprechbat 

Kein Ptebieml Wozu gIM et: 

Software Carousei 

196- DM 

Oie Sicherung Ihrer Fedpistte dauwi 
ilmeeaj lange? 

Das muB aicbl sein. 

In B Minuten von 8 auf lOSOO Kilobyta 
mit: 

Fastuacli 

529.-DM 

>Q-Dos< Das protessioneiie Werkzeug 
pjr Disk'\^rwaitung 

149,- DM 

Oflit >Das BQio* 


Ideal lür Einslelger und Prods, die lieber über 

andere Dinge nachdenken OHix ein Sirosy 
Stein wie aus dem wirklichen Leben, verklei 
nerl Ihr Biiro auf BiidschirmgrcGe 

596- DM 

StarWfiter PC Version 20 

396- DM 

Schneider Wordstar 1512 

199,- DM 

SyPex StarKontor PC 

TKtverwbedung 

CS,-W 

Mrefterwalung 

te-DM 

Oaeiverwaltong 

Mi-OM 

FaMunerung 

17i-DM 

fmarubucbhalung 

33D-OM 

(agerveraaltung 

175,- DU 

Lohn und Gehai: 

175,-OM 

OosWarager 

75.-DM 

Barkauf-Mietkauf 

Zielkauf 


Leasing 


IQr den oewerblichen Arrwender nur in unserem La- 

dengeschäfl möglich 


Alle Produkte der Schneider-ComDuter- 

Division lieferbar. 

Drucker verschiedener Hersteller 


Ausgesuchte Software lür alle Schneider 

Compuler 

24 Stunden Versand-Service 



Ergaenzjngen zu TOOLHEX 


120 WlNDOWtO.1,eo.2.8:WIHDOW*l.l.e0.1.2;W1ND0W*2.26.80.10.14:» (6837] 

lNDOW*3,l,22,12.14:WIKI>OW#4.1,48,16,25:WINI>OW*5.1.22.10.1l!WIN 

DOW46.52.80.16.25 

1155 IF IHSTR(abapeichS. K>0 THEN SOSUS 1620 117611 

1362 Cl.S:PR]NT "Soll daa ^-Zeichen vor die Zahlen gesetzt werde 15380) 
n ? ':GOSUB 1480 

1364 IF jabfrag THEN undfrag-1:a$-‘'6" 11406) 

1366 IF helP4Uer-0 THEN 1370 ELSE IF unterhex-0 THEN PHIHTtPRI (9180) 
NT"Soll die Pruefaumrae mit dem &-Z«ichen":PRINT "gesaved werden 
7"":GOSUB 1490 

1368 IF jabfrag THEN prueffrag-1 ELSE prueffrag-0 12601] 

1400 FOR xzHi»l TO zeilmax (1899) 

1401 IF undfrag-0 THEN 1409 (1412) 

1402 azHi"LEN(data2eil(XZWl>):bZHl“INSTR(dätazeif(xzwi)."DATA" (4579) 
)+4 

1403 dataOJ-LEFT»(datazeiS)xzwi).bzwi):datalJ«RIGHT*(data 2 eij( (5405) 
xzwij .azwl-bzwl) isum*“’'" 

1404 WHILE bzwi<a2Wi-2 11226] 

1405 sumS'sumS+ag-i-LEFTS(datalS.3) [29231 

1406 bzwi-bzwi+3;datall“RIGHTS(datals.azwi-bzwi) [17771 

1407 WEND [390] 

1408 datazeis (xzwi) -dataOS+sumS+aS-HlatalS [ 13091 

1409 IF unterhex-1 AND halpquer-l THEN PRIIfr*9.datazeil(xzwi)♦ [51551 
’';quersuin(xzwi) 

1410 IF unterhex=0 AND helpquer-1 AND prueffrag*0 THEN PRINT49 [62481 
, datazels (xzwl) +", "' :HEXs (quersum [xzwi]) 

1415 IF unterhex»0 AND helpguer-l AND pruaffrag-1 THEN PRINT« [5692) 
,datazels(xzwi]+". R":HEXS<quersum(xzwi)) 

1460 GOTO 1600 [3711 

1620 "** DATEI OHNE R-ZEICHEN LADEN **' 13675] 

1630 xzwi-LENlabspeichS);yzwll-INSTR(aböpeichS,"DATA")♦4;yzwl2 [7636] 
-INSTR(yzwll+l.abspelch$."", "):IF yzwi2<>0 THEN helpquer-l 
1640 anz“0:yzwi“0;POR wzwl-1 TO 90;yzwl-lNSTR(yzwl+l.abspeichS [6620) 
.'".""):IF yzwi< >0 THEN anz“anz+l ELSE wzwl-90 

1650 NEXT [3501 

1660 yzwi-INSTR(ab3peichS. "R ") ! IF yzwi-yzwiltl THEN undfrag-1 [3882] 
1670 IF helpquer-l THEN yzwi3-INSrH(yzwi2.abspeichS.IF yz [4904] 
wi3<>0 THEN prueffrag-1 

1675 IP undfrag-1 THEN 1690 [15281 

1660 abspeichS-LEFTj(abspeichS.yzwi2+l)+RIGHTS[abspeichS.xzwi- (43791 
yrwi 2 - 2 ) 

1685 RETURN [5551 

1690 data0$-L£FT$[abspeichS.yzwil):datalS-RIGHT$(abepeich$.xzw 12695) 
1-yzwil-l) 

1700 sum$-"":F0R z-1 TO anz-helpquer (27211 

1710 suinS-suniS+LEFTS(datalS.3) :datalS-R:GHTS(datalS.xzwi-yzwil [40551 
-1-4*Z) 

1720 NEXT [3501 

1730 abspeichS-dataOS-»9uiDS+LEFTS<datals. 2) 11840] 

1740 IP helpquer-0 THEN RETURN (1304] 

1750 xzwi-LEN(datal$) :yzwi-INSTH{datalS, ", "") :wzwi-INSTRCdatal 14827) 
$."R") 

1760 IF unterhex-0 THEN datals-". ""*RIQHTSldatal$,xzwi-yzwi) (38961 
1770 IF unterhex-1 AND prueffrag-0 THEN datals-","+RIGHT$(data [3537] 
IS.xzwl-yzwl) 

1775 IF prueffrag THEN datalS-". "+RIGHTS(datal$.xzwi-wzwi) [2694] 

1760 abspeiehS-abspeicbS+datalS 11058] 

1790 RETURN 1555) 

1600 END (1101 


Listing 1 
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Die 23. Runde des naturwissen¬ 
schaftlichen Wettbewerbs Ju¬ 
gend forscht geht los! Anmelde- 
schluß ist der 30. November 
1987. Mitmachen kann jeder, der 
am 31. Dezember 1987 noch kei¬ 
ne 22 Jahre alt ist, egal ob Schü¬ 
lerin oder Student, Azubi o.ä. 

Jugendliche unter 16 Jahren neh¬ 
men an dem Wettbewerb Schüler 
experimentieren teil. Das selbst¬ 
gewählte Thema muß in die 


Fachgebiete Biologie, Chejnie, 
Geo- und Raumwissenschaften, 
Mathematik/Informatik,Phy¬ 
sik,Technik oder zum Sonder¬ 
preisthema Arbeitswelt passen. 

Interessiert? 

Dann besorgen Sie sich weitere 
Informationen bei: 

Stiftung Jugend forscht e.V. 
Notkestr. 31 

2000 Hamburg 52 □ 


Teure Drucker mehrfach | 

1 Ashton-Tate 

nutzen | 

1 Originalliteratur 


»MULTI-SPOOL« nennt sich die 
Geräte-Serie, die das Aachener 
Ing-Büro Wilke anbietet.Mittels 
dieser Geräte lassen sich jeweils 
mehrere Computer mit einem 
oder mehreren Druckern und 
Plottern verbinden. 



So können z.B. 7 PC’s mit 2 
Druckern auskommen, auf die 
jeder Benutzer Zugriff hat. Ein ei¬ 
gener Speicher entlastet dabei 
den PC. Jeder Ein- und Ausgang 
verfügt über einen eigenen Spoo¬ 
ler, der die Daten zwischenspei¬ 
chert.Ein gezielter Zugriff auf ei¬ 
nen bestimmten Drucker ist 
durch den intelligenten Kanal- 
Umschalter möglich. Je nach Ge¬ 
räteausführung stehen 8,12 oder 
16 parallele Kanäle zur Vefü- 
gung, 4 davon sind für die 
Drucker, die übrigen 4,8 oder 12 
Kanäle für den Computer-An¬ 
schluß vorgesehen. 

Die Preise; je nach Ausführung 
von 2960, — bis 5620, — 

Info: Ing.-Büro Wilke 
Adalbertsteinweg 26, 

5100 Aachen □ 


Die amerikanischen und deutsch¬ 
sprachigen Bücher,Tools und 
Anwenderprogramme von Ash- 
ton-Tate sind jetzt komplett auch 
beim EDV-Buchversand Delf- 
Michel erhältlich. 

Bei Interesse erhalten Sie dort ko¬ 
stenlos einen Katalog der Pro¬ 
dukte. 

Info: 

EDV-Buchversand 
Delf Michel 

5630 Remscheid □ 


EDV-Kennzeichnung, 
schneller, bequemer, 
ordentlicher 


Die Firma Friedhelm Leymann 
bietet speziell zur Kennzeich¬ 
nung von Datenträgern, Kasset¬ 
ten, Ablageflächen oder Regal¬ 
gängen ein breites Spektrum von 
Zahlen und Buchstaben über Se- 
rien-Nummem, farbigen Mar¬ 
kierungspunkten und -streifen bis 
hin zu Universal-Etiketten und 
speziellen Faserschreibern an. 

Info: 

Friedhelm Leymann 

Hans-Böckler-Str. 20 

3012 Langenhagen □ 


SummaSketch Plus Grafiktablett 


Die verbess^e Version Ihres be¬ 
kannten Grafiktabletts bietet die 
Summagraphics Corporation un¬ 
ter der Bezeichnung SumniaS* 
ketch Plus MM 1201 für alle 
PC’s und kompatiblen an. 

Im Lieferumfang enthalten ist ne¬ 
ben der umfangreichen Ausstat¬ 
tung auch ein Universal-Mau- 
streiber sowie ein Treiber für Mi- 
crosoft-Windows. Darüber hin¬ 
aus liegt dem Paket ein Netzteil, 
ein integriertes Datenkabel, ein 


PC-AT Adapterkabel sowie als 
Eingabemedium eine Lupe mit 
vier integrierten Tasten und ein 
2-button Stift bei. Summasketch 
unterstützt laut Anbieter alle füh¬ 
renden Softwareprogramme im 
Grafikbereich, wie AutoCAD, 
PC-Draft uniCAD, CADstar, 
Microsoft Windows, GEM usw. 

Info: 

Polyvision Computertechnik GmbH 

8000 München 50 

Tel.: 089/1415077 □ 



Fischer Metroplast 
Produktserie 


METROCOMP heißt die neue 
Produktlinie der Firma Fischer 
Metroplast.Die Angebotspalette 
reicht von Modifikationsboxen 
zur Schnittstellenanpassung über 
Floppygehäuse bis zu SUB-D 
Steckverbindungen und Adapter¬ 
karten für IBM-PC’s und kompa¬ 
tible. 

Info: 

Fischer Metroplast 

Nottebohmsir. 55 

5880 Lüdenscheid □ 


8. Amstrad Computer 
Show 


Die englische Database Organi¬ 
sation veranstaltet vom 23.-25. 
Oktober 1987 zumnun insgesamt 
achtenmal die Amstrad Compu¬ 
ter Show. Schauplatz der Aus¬ 
stellung ist diesmal Manchester. 
Tickets oder weitere Informatio¬ 
nen erhalten Sie bei: 

Amstrad Show Tickets,Europa 
House, 68 Chester Road, Hazel- 
port, Stockport SK7 5NY □ 


Vortex-Speicher- 
erweiterunq für Erweite- 
rungsslots_ 


Eine Speichererweiterung mit 
128 kB RAM bietet die Fa. Vor¬ 
tex unter dem Namen SPC 128 
an. Diese wird in einen freien 
Slot gesteckt und erweitert den 
PC 1512 auf 640 kB Hauptspei¬ 
cher. Die Steckbrücken müssen 
hierbei nicht umgesteckt werden. 
Preis der SPC 128: ca. 158,- 
DM. 

Info: 

Vortex Computersysteme GmbH 
Falterstr. 51-53 

7101 Flein □ 


10 MHz für PC1512 


Interessierte Anwender können 
die Taktffequenz ihres PC 1512 
per Umbau auf 10 MHz erhöhen. 
Mit einem Schalter kann dann die 
Taktfrequenz umgeschaltet wer¬ 
den, der Preis incl. V30-Chip ko¬ 
stet ca. DM 149,-. 

Info: 

Helmuth Neuberger 

7340 Geislingen/Steige 

Tel.: 07331/66866 □ 
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UNITRONIC vertreibt für die 
amerikanische Firma INTER- 
DYNE Tape-Backup-Laufwerke 
mit verschiedenen Speicherkapa¬ 
zitäten von 10, 20 und 40 bis 
max. 160 MB. Datenträger ist 
dabei eine Spule mit einer Strom¬ 
aufnahme von nur 900 inA. Die 
Bauweise und Elektronik ist im 3 
1/2“ Format gehalten, es können 
jedoch 5 l/4“-Einbaumaßc adap¬ 
tiert werden.Beim Bestellen des 
Bausatzes ID 1010/20/45 “s“ ist 
für die IBM- PC/AT’s und kom¬ 
patible eine komfortable Installa¬ 
tionssoftware (Menü) als kosten¬ 


lose Zugabe im Lieferumfang 
enthalten.AUe »Megafloppy« IN- 
TERDYNE-Laufwerke haben 
einen Standard-Shugart (SA 450) 
Anschluß. 

Die Übertragungsrate ist zwi¬ 
schen 250 und 500 kbs wählbar. 
Neben den Einbaumodcllen ste¬ 
hen Subsysteme (ID 60xxx) zur 
Verfügung. Besonders interes¬ 
sant ist der Preis, der für die ID 
1020 s ca. DM 743,—beträgt. 
Info; 

UNITRONIC GmbH 

Münsterstr. 338 

4000 Düsseldorf 30 □ 


ARCNET Netzwerkkarte für PC's 


SC-NET nennt sich die von der 
Firma Datapoint angebotene 
Netzwerk-Karte, bei der mehre¬ 
re PC’s über Koaxial-Kabel mit¬ 
einander verbunden sind. 

Die neuentwickelte Platine kann 
nach Angaben des Herstellers 
ohne Probleme ein bestehendes 
ARCNET-Netzwerk ergänzen 
und ist 100 % kompatibel zu vor¬ 
handenen ARCNET-Platinen. 
Bis zu 255 Benutzer unterstützt 
die SC-Netzkarte. Der 2 KB 
RAM Zwischenbuffer, der sich 
auf der Platine befindet, erlaubt 


das Weiterarbeiten, während der 
LAN-Controller mit einer Ge¬ 
schwindigkeit von 2.5 Mbit/sec 
Daten überträgt. 

Damit wird die Karte wohl eher 
im professionellen Bereich An¬ 
wendung finden. Auf der Karte 
ist eine Slotleiste für IBM 
PC/XT/AT sowie eine BNC- 
Buchse angebracht. Der Netto¬ 
preis liegt bei ca. DM 787,-. 
Info: 

Iris S. Sieben 

Wittelsbacher Str. 80 

5040 Brühl □ 



Neuer Joyce im neuen Kleid 


In England wurde jüngst der 
»große Bruder« der PCWs 
8256/8512 vorgestellt: die PCWs 
9256 und 9512. Besonderheiten: 
ein dem PC 1512 angeglichenes 
Äußeres (Foto) mit einem grau¬ 
en Monochrom-Monitor und ei¬ 
ner neuen Tastatur. Inklusiv sind 
inzwischen ein paralleler 
Centronics- und ein serieller 
RS232-Anschluß. 

Das A-Laufwerk verfügt bei den 
Neuen über 1 MB Speicherkapa¬ 
zität; die Maschine wird in Eng¬ 
land mit dem neuen LocoScript2 
ausgestattet. Anstatt des gewohn¬ 


ten Matrix-Druckers wird die 
9er-Serie mit einem 15 Zoll brei¬ 
ten Diablo-kompatiblcn Typen¬ 
raddrucker ausgeliefert. 

Laut Auskunft der Firma Schnei¬ 
der wird eine Entscheidung über 
den Vertrieb der neuen PCWs in 
diesem Jahr nicht zu erwarten 
sein; vielmehr wird der Verkauf 
der 8XXX-Modelle im zweiten 
Halbjahr gefördert. Zu erwarten 
ist hier eine Veränderung des 
Verkaufspreises; es ist geplant, 
bis zum Jahresende weitere 
25000 (!) Geräte zu verkaufen. 
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In dieser Folge unserer Serie für den 
Einsteiger werden wir uns all dei^e- 
nigen widmen, die ihren CPC näher 
kennenlernen und auf ihm program¬ 
mieren wollen. Dabei liegen die 
Schwerpunkte auf den Unterschie¬ 
den der drei CPC’s und auf den 
Sprachen, mit denen man seinem 
Rechner etwas sagen kann. Derer 
gibt es nämlich gar nicht so wenig. 


Die Unterschiede 


Die auffälligsten Unterschiede der drei 
CPC’s liegen wohl im Äußeren. 

Da wären die Tastaturen, die An¬ 
schlüsse der Rechner und natürlich die 
Diskettenlaufwerke der CPC’s 664 und 
6128 im Gegensatz zum Datacorder 
des CPC 464. Aber auch das eingebau¬ 
te Locomotive-BASIC, das ROM und 
die Speicherbelegung weisen kleine, 
jedoch unter Umständen ärgerliche 
Unterschiede auf. Wenn Sie z.B. stol¬ 
zer Besitzer eines CPC 464 sind und 
das BASIC-Programm eines Freundes, 
der einen CPC 6128 besitzt, starten 
wollen, dieser nun aber ausgerechnet 
ein paar der Befehle benutzt hat, die Ihr 
Rechner nicht kennt, kommt es zum 
»gefürchteten«... 


SYNTAX-ERROR 


Der Syntax-Error, ist grob gesagt ein 
Rechtschreibfehler, im Sinne des Com¬ 
puters. Er ist eine von vielen Fehler¬ 
meldungen die der Computer bereit hat 
und ausgibt, wenn er etwas nicht ver¬ 
standen hat. Speziell in diesem Falle, 
bedeutet dies, daß ein Befehl (Kom¬ 
mando) eingegeben wurde mit dem der 
Interpreter nichts anfangen konnte. 


Einsteigen 

ohne Der 2.Teil 

Probieme 


Was in den meisten Fällen bedeutet, 
daß ein Befehl z.B. PRINTT nicht kor¬ 
rekt eingegeben worden ist. Wie man 
sehen kann, ist das Beispiel falsch ge¬ 
schrieben. Es wird nämlich mit nur ei¬ 
nem »T« am Ende aufgehört, also 
PRINT wäre hier richtig. Sie können 
also ohne weiteres nichts mit diesem 
Programm anfangen. 

In Abbildung 1. zeigt eine Übersicht 
die BASIC-Befehle und — Funktionen, 
die der CPC 464 nicht kennt und auch 
dementsprechend nicht umsetzen kann. 
Hier an dieser Stelle, sollte man kurz 
hinweisen, daß man einen »Emulator« 
für den CPC 464 bekommen kann. 
Dieser Emulator, wie der Name schon 
sagt, ist ein Programm, das die Befehle 
des CPC’s 6128 »simuliert«. Der Emu¬ 
lator wurde in dem Heft 10/86 der PC 
Schneider International veröffentlicht. 


Interpreter 


Der Interpreter übersetzt die eingege¬ 
ben Basic-Programme (Befehle)in ei¬ 
ner Form die der Computer »versteht«. 
Kommt in diesem Programm ein Be¬ 
fehl vor, den der Computer zwar kennt 
aber nicht richtig »geschrieben« wurde, 
dann gibt es eine Fehlermeldung und 
zwar in Form eines »SYNTAX ER- 
RORs«. 

Die Unterschiede im ROM werden da¬ 
gegen erst interessant, wenn man di¬ 
rekt auf das Betriebssystem zugreifen 
möchte. Das dürfte allerdings erst bei 
der intensiven Beschäftigung mit Ma¬ 
schinensprache der Fall sein. 

Der Vollständigkeit halber ist in Abbil¬ 
dung 2. die Speicherbelegung der ein¬ 
zelnen Betriebssystem-Abschnitte, der 
sogenannten Packs, dargestellt. 

Für den Laien interessanter ist da schon 
der allgemein zugängliche Speicher. 


Er beträgt bei den CPC’s 464 und 664 
64 KB (Kilo Byte) RAM und 32 KB 
ROM. Doch leider sind diese Angaben 
für den Ram Bereich nur theoretisch 
richtig. Wie wir noch später sehen, 
braucht das ROM und der Bildschirm¬ 
speicher Platz. Der einzige Platz, das 
das Rom findet ist der Ram-Speicher 
und dort »nistet« es sich ein. Beim CPC 
6128 ist der RAM-Speicher um das 
Doppelte auf 128 KB gewachsen, wo¬ 
bei dem BASIC-Programmierer nach 
wie vor, nur 42 KB gleichzeitig zur 
Verfügung steht. An den zusätzlichen 
Speicher kommt man durch sogenann¬ 
tes Bankswitching. Das dazu gehörige 
Programm (BANKMAN) befindet sich 
auf der Systemdiskette, die beim Kauf 
des Computers mitgeliefert wird. Der 
genaue Umgang ist im Handbuch, bei 
den Kapiteln 1 Seite 90 und Kapitel 8 
Seite 1 genau erklärt und im folgenden 
wollen wir von 42 KB Speicher ausge¬ 
hen. Dieser belegt die Speicherstellen 0 
bis 65535 (Hexadezimal «feO - 
&FFFF) und teilt sich wie in Abbil¬ 
dung 3. dargestellt auf. 

Wie man sieht, liegt in den unteren und 
oberen 16 KB-Bereichen noch ein 
ROM-Speicher »neben« dem RAM- 
Speicher. Da der Z80-Prozessor des 
CPC nur bis 65536 Speicherstellen 
verwalten kann, mußten einige Spei¬ 
cherstellen doppelt belegt werden. Im 
Bereich von 0 — 16383 (Hexa &0 — 
&3FFF) liegt das eigentliche Betriebs¬ 
system der CPC’s. Im Bereich 49152 
- 65535 (Hexa &C000 - &FFFF) das 
BASIC-ROM und evtl, angeschlossene 
Zusatz-ROM’s, wie zum Beispiel das 
Floppy- ROM bei angeschlossener 
DDl (CPC 464). 

Doch kümmern wir uns um den RAM- 
Bereich, an diesen kommt man eh 
leichter heran. 
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Der RAM-Bereich 


Dieser umfaßt, wie. schon gesagt, die 
Speicherstellen 0 — 65535. Jede dieser 
Speicherstellen kann man sich mit dem 
BASIC-Befehl PEEK auslesen. Geben 
Sie Ihrem Rechner doch einmal 

PRINT PEEK (48122) 

abgeschlossen mit ENTER ein. 

Wenn Sie noch nicht wissen sollten, 
welchen der drei CPC’s Sie besitzen, 
können Sie es so herausfinden. 

Beim CPC 464 gibt Ihnen der Compu¬ 
ter 54, beim CPC 664 die Zahl 162 und 
beim CPC 6128 166 aus. 


Woran liegt das? 


Unterschiedliche Werte zeugen von 
unterschiedlicher Speicherbelegung. 
Wie bereits erwähnt, haben die CPCs 
unterschiedliche ROMs. Daraus lassen 
sich nun auch die verschiedenen Werte 
erklären. 

Zunächst einmal sollten Sie jedoch 
wissen, daß sich bei Adresse 48122 gar 
kein ROM befindet. Dieser Platz wird 


mit Variablen (Veränderliche Werte) 
des ROMS belegt. 

ROM 


READ ONLY MEMORY. 

Was in Deutsch übersetzt heißt: 

'NUR LESBARER SPEICHER’, 
was soviel bedeutet, daß man in Roms 
nichts hineinschreiben kann. ROMs 
enthalten aber Programme und Pro¬ 
gramme ohne sich verändernde Werte 
gibt es nicht. Folglich muß sich das 
Rom irgendwoher Platz im RAM be¬ 
schaffen. 

RAM 


RANDOM ACCESS MEMORY 

Hier sieht die Übersetzung folgender¬ 
maßen aus: 

'FREI WÄHLBARER SCHREIB¬ 
LESESPEICHER’ 

folglich heißt das für uns, man kann 
hier lesen, sowohl als auch schreiben. 
Dies geschieht schon beim Einschal¬ 
ten. Der Z80 Prozessor fangt beim Ein- 


Die neuen BASIC-Befehle urid 
-Funktionen der CPCs 864 und 6128 

CLEAR INPUT 
COPYCHR$ 

CURSOR 

DERR 

FILL 

FRAME 

GRAPHICS PAPER 
GRAPHICS PEN 
MASK 


Abb. 1 

schalten an, ein Startprogramm ab 
Adresse 0 abzuarbeiten. Dieses Pro¬ 
gramm befindet sich im ersten 16KB 
(Kilobyte) Block ihres ROMs. Man 
könnte sagen, daß es dort »festverdrah¬ 
tet« ist, denn es wird auf jeden Fall 
beim Einschalten als erstes bearbeitet. 
Es steht sozusagen im Vordergrund’. 
Ihr ROM ist übrigens ein VORDER¬ 
GRUNDROM und hat die Kennziffer 0. 

Darüberhinaus kann der CPC auch 
noch eine Reihe von ’HINTERGRUN- 
DROMS’ bearbeiten, die dann durch¬ 
numeriert sein müssen, dazu jedoch 
später noch mehr. 

Da das ROM des CPC wie eingangs er¬ 
wähnt, 32KB groß ist, fragt man sich 
natürlich, was mit den verbleibenden 
16KB passiert. Dieser Rom Bereich ist 
keineswegs leer, er enthält das fest ein- 
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Dis Sf^eic^eraufteilutig des CPC 
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Abb. 3 


gebaute Locomotive Basic. Als Erstes 
wird beim Einschalten dieser erste 
16KB Rom Block bearbeitet. Das in 
ihm enthaltene Programm bereitet den 
Video Chip und die restliche Hardware 
zum Arbeiten vor, installiert den Zei¬ 
chensatz, bereitet die ROM-Datenbe- 
reiche vor, aktiviert das BASIC ROM 
und schaltet die Interrupts ein. 


Zeichensatz 


Lassen Sie sich doch mal den Zeichen¬ 
satz von Ihrem Computer vorführen, 
mit folgendem Programm: 

10FORA= 32 TO 255 

20 PRINT "ZEICHENSATZIMR. " ;A;" 

INHALT ";CHR$ (A) 

30 NEXT A 


Interrupt 


Da hier schon mal die Interrupts er¬ 
wähnt worden sind, sollte auch kurz er¬ 
klärt werden was überhaupt ein Inter¬ 
rupt ist. Interrupts ermöglichen es dem 
Rechner seine Funktionen in dem rich¬ 
tigen Moment auszufüheren, sozusa¬ 
gen der Puls des Prozessors. Interrupts 
werden über sogenannte Vektoren im 
Ram Bereich gesteuert. Ein solcher 
Vektor besteht aus einer 3 Byte Infor¬ 
mation die folgendermaßen aufgebaut 
ist: 

1. BYTE SPRUNGBEFEHL 

2. BYTE ADRESSE TEIL 1 

3. BYTE ADRESSE TEIL 2 

Der Sprungbefehl sagt dem Prozessor, 
daß er beim Auftreten eines Interrupts 
springen muß und zwar dahin, worauf 
die nachfolgende Adresse zeigt. Sprin¬ 
gen heißt, daß er nun ein Programm an 
der genannten Adresse bearbeiten soll. 


Die Adresse steht in zwei Teilen da, 
warum das so ist, erfahren Sie im näch¬ 
sten Teil, in dem wir uns mit Zahlen¬ 
folgen beschäftigen wollen. 

Das ROM beinhaltet noch eine Menge 
Unterprogramme, die z.B. dafür ver¬ 
antwortlich sind, daß überhaupt etwas 
auf dem Bildschirm erscheint. Da diese 
Routinen dem Programmierer zugäng¬ 
lich sind, besitzen Sie eine nach dem 
gleichen 3 Byte Schema gestaltete 
Sprungtabelle. Außerdem gibt es noch 
eine Menge Variablen, in denen sich 
das Rom merkt, an welcher Stelle bei¬ 
spielsweise der Cursor gerade steht 
oder andere veränderliche Werte. All 
dies liegt nun in dem Bereich in dem 
Sie gerade »gepeekt« haben. Da jedes 
Rom jedoch ein anderes Programm 
enthält, und folglich die Vektoren auch 
auf andere Adressen zeigen müssen, ist 
es auch selbstverständlich, daß Sie ei¬ 
nen anderen Wert bekommen. Im all¬ 
gemeinen bemerken Sie beim Pro¬ 
grammieren in Basic davon nichts. Da 
die Vektoren auf die genannten Unter¬ 
routinen bei allen Rechnern in der glei¬ 
chen Sprungadresse stehen (nur die 
Zieladresse der Sprunganweisung ist 
verschieden), bemerken Sie auch bei 
der Assemblerprogrammierung nicht 
viel davon. Schwierig wird es erst, 
wenn ein Programm direkt ins Rom 
springt. Hier muß dann konsequent ge¬ 
ändert werden. Wie das gemacht wird, 
entnehmen Sie bitte einem ROM Li- 
sting, aber erst wenn Sie in Assembler 
ausreichend geübt sind. Bevor wir nun 
erklären was Assembler überhaupt ist, 
sei noch daraufhingewiesen, daß auch 
die durchnumerierten Hintergrund- 
Roms einen Variablenbereich und 
Sprungvektoren benötigen. Das Floppy- 
rom benötigt beispielsweise 1284 By¬ 
tes die es sich beim Einschalten auch 
noch vom Ram »klaut«. Je mehr Roms 
Sie also anschließen, desto weniger 
Speicherplatz haben Sie zur Verfü¬ 


gung. Feststellen können Sie dies, in¬ 
dem Sie 

PRINT FRE(0) 

gefolgt von ENTER eingeben. 

Der ausgegebene Wert entspricht der 
Speicherkapazität, die Sie för Basic- 
Programme zur Verfügung haben. So¬ 
weit also zur Speicheraufteilung des 
CPC und die bei verschiedenen ROMs 
sich ergebenden Unterschiede. Es ver¬ 
langt jetzt keiner von ihnen, daß Sie 
nun alles was mit Speicher, Interrupts 
und Sprungtabellen zu tun hat begriffen 
haben, dazu kommen wir später noch. 
Weiter geht es nun erst einmal mit den 
Unterschieden in den verschiedenen 
Computersprachen. 


Von hohen und tiefen Sprachen 

Hohe Sprachen sind solche Sprachen, 
die der Denkweise des Menschen so 
gut wie möglich angepaßt sind und so¬ 
mit einen gewissen Bedienungskomfort 
aufweisen. Die bekanntesten Vertreter 
von Hochsprachen sind: 

Pascal 

Basic 

C 

Logo 

Forth 

Comal 

Hochsprache gibt es in rauhen Mengen 
und in den verschiedensten Variatio¬ 
nen, sprich Dialekte. Ihre Program¬ 
mierung ist meistens den Problemen 
angepaßt, die damit gelöst werden sol¬ 
len. Wie zum Beispiel: COBOL 
»COmmon Business Oriented Langua- 
ge«, (Allgemeine kaufmännisch orien¬ 
tierte Sprache). Da es jedoch für einen 
Einsteigerkurs ziemlich sinnlos ist, 
sich mit kaufmännischen Sprachen 
oder künstlicher Intelligenz zu beschäf¬ 
tigen, beschränken wir uns auf ein paar 
Standardsprachen, so wie das einge¬ 
baute Basic, welchesnatürlich besonde¬ 
re Beachtung finden wird. Dazu kom¬ 
men wir jedoch erst in den nächsten 
Teilen. Was in diesem Teil unbedingt 
noch angesprochen werden sollte, 
wenn auch nur kurz, ist der Assembler 
oder die Maschinencode (MC) Pro¬ 
grammierung. Diese Sprache orientiert 
sich direkt am Denken des Prozessors 
und ist daher wie alles was versucht 
künstlich zu denken, sehr abstrakt. Ein 
reines MC Programm besteht nur aus 
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Zahlen. Ja, richtig vermutet, die riesi¬ 
gen Blöcke mit Data Zeilen in unseren 
Listings sind solche MC Programme. 

Assembler kommt dem Programmierer 
schon etwas entgegen, indem er abge¬ 
kürzte Befehle z.B. LD, SUB, ADD. 
EX, für Laden, Subtrahieren, Addie¬ 
ren und Tausche verwendet die dann 
vom Computer in die entsprechenden 
Zahlwerte umgesetzt werden. 

Diese Art von Programmierung ist al¬ 
lerdings noch sehr auf das »niedere« 
Denken des Prozessors ausgerichtet, 
deshalb spricht man hier von einer tie¬ 
feren oder prozessororientierten Spra¬ 
che. 

Der Vorteil von Assembler liegt darin, 
daß man mit ihm das maximal Mögli¬ 
che an Rechnerleistung und Geschwin¬ 
digkeit aus seinem Computer heraus- 
holcn kann. 

Der Nachteil liegt jedoch darin, daß 
man bei einem Assemblerprogramm 


wirklich wissen muß, was man da ei¬ 
gentlich programmiert. Schon der 
kleinste Fehler schickt den Rechner mit 
absoluter Sicherheit in die tiefsten Tie¬ 
fen des Prozessors. Wo er in den sel¬ 
tensten Fällen wieder auftaucht. Auf 
Assembler kommen wir zum späteren 
Zeitpunkt noch zu sprechen. 

Zu empfehlen sind Kenntnisse in dieser 
Sprache auf jeden Fall, wenn man näm¬ 
lich in Assembler programmieren 
kann, nimmt man den Hochsprachen 
einiges von ihrer Kompliziertheit und 
lernt den Rechner viel besser zu ver¬ 
stehen. 

Zu empfehlen ist ein Assemblerkurs. 
Aber dies ist wieder ein anderes Ka¬ 
pitel. 

In der nächsten Folge werden wir dann 
einige Hochsprachen vorstellen und 
den Umgang mit Zahlensystemen er¬ 
läutern. 

Bis dahin wünsche ich Ihnen »Good 
Programming«. 

(CD) 
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SIREN 

Die Schneider-Utilities 


ARNOR 

Anwender-Software 
auf EPROM oder Diskette 

PROWORT Die Textverarbeitung für den JOYCE 

Professionell, flexibel und ung/aub/icfi sebne/// Mit 
Mailmerge, Rechtschreibprüfung und Disk-Utilities. 
Hmtergruryddrucken, Two-File-Editmg, für alle Dnjk- 
ker. Komplettin Deutsch, incl. Handbuch ()60S ) 

3".DI$kette louch f. CPC 6128, CP/W+) OM 239.90 

PROTEXT Die Textverarbeitung für die CPC's 

Ung/aub/ich feisfungsstork und fanfos/rsch schnell! 

3'-Diskette DM 94.90 EPROM DM 124.90 

PROMERGE Die Moilmergeerweiterung zu PROTEXT 

Atai/merge, Voriabfenuerarb., Calculalor, Hinter¬ 
grunddruck Two-File-Editing, Mehrspollen-Layout 

Für alle CPC's 3 "-Diskette DM 84.90 EPROM OM 114.90 

UTOPIA Die BASIC-Erweiterung ouf EPROM (50 Bef.) 

Hervorragende Progromm/er- und Diskeltenufilities. 

Für alle CPC's EPROM nur DM 94.90 

MAXAM Assenbler/Disassembler/Monitor 

Dos komplefte ZSO-bniwieWungss/sfem. 

Für alle CPC’s 3"-Diskette DM 94.90 EPROM DM 124.90 
MAXAM tl für JOYCE (CPC 6128 CP/M+) DM 239.90 

Deutsches Handb. für PROTEXT/MAXAM (CPC) je OM 10.- 


DISCOVERY PLUS Tape to Dis( Transfer 

NeuJ Jetzt mit 5 Programmen. Kopiert geschützte 
Kossettensoffwore auf D/slrette. Für Speedlock 
fneu/J, Headerlose und ondere Kopierschutzorten. 

Das umfangreichste Kopierprogramm seiner Art! 

Für olle CPC s 3"-Diskette DM 59.90 
UPDATE-Servke: Die neueste Version gegen 
Einsendung von DM 10.- + Originol. 

DlSCovery User Service 285 Transferlösungen und 
Tips in DISCUS 1 2,3 und 4: Je DISCUS OM 5.- 

HANDY MAN 416 k pru 3"'Diskette 

Superschne/Zes Formotierprogromm für olle Formate 
+202 k und 204 k Formot. Läuft mit ein od. zwei 
Laufwerken auch unter CP/M. d weitere LJtrht/es wie 
Diskettenstorfmenü, Monitor, DISC/FILESEARCH etc. 

für alle CPC's 3"-Diskette nur OM 59.90 

MASTERDISC 12 Diskettenurilities 

Oisiettenbockup, Direclory-EdHor. gelöschte Files 
retten, Fast-Formaller, File-Copy, Diskettenmonitor, 
Deprofeefor. 12 Spifrenui/lit/esZ 
Für alle CPC's 3"-Diskette nur DM 59.90 

TWO ON ONE PACK 

Masterdisc und Handy Man ouf einer Diskette DM 99.- 

PRINT MASTER 

20 verschiedene Schr/ftorten, in jedem ASCII-File 
einsetzbar. Druck in verschiedenen Höhen 
und Breiten. Eigene Schriften , 

entwerfen. Screendump in 
16 Schattierungen u.a. 

RSX-Erweitervngen. 

Für alte CPC’s 
3"-Dishetie 
DM 59.90 


NEU! DISCOLOGY Copler, Editor, Explorer 

Die e/nz/gortige D/sfeettenutilitjr-Somm/ung/ Kopiert 
o//es. wos der CPC lesen kann (geschützte Softwa¬ 
re}. Editiert jeden Sektor in jeder Formotierung. Dor- 
stellung in HEX, ASCII, binär, octol, dezimal und dis- 
assemblierf. Druckerousgobe. H£X-Dezimo/ Um¬ 
rechnung. Grafische Dorste/iung der Sekforenonzohl 
pro Spur mit Fiiefaeiegung und Sektor-Kenndofen 
u.v.a.. Speichererweiterungen werden unterstützt. 

Für alle CPC's 3"-Diskette nur DM 99.- 

SUPER ROMPLUS EPROM-Korte von Britannia 

Für 14 EPROMS am CPC fauch 464, mit VORTEX). 
ROM-Manager Modul, 19 RSX-ßefebie, Storfmenü. 

DM 149.90 [Adapter für CPC 6128 DM 29.-) 

ROMBO EPROM-Korte für 8 EPROMS 
DM 119.90 (Adapter für CPC 6128 DM 29.-] 

PHASOR ONE Joystick 

Pisto/grip-Des/gn, A^icroscha/ter. DM 39.90. 

3"-Disketten MAXELL CF2 lo st. dm 74.- 


PR8-SOFT Klaus-M. Protl^.i 
Postfach 500 

D--8702 Margetshöchheim 

24 Std.-Telefon; 

00931/464414 
Spiele lu Schleuderpreisen! 

Aktuelle Uste anfordern! 















l~ Bericht 


□ 


Sommerwettbewerb ’87 



Über 9000 richtige Einsendungen erreichten uns bis zum Einsendeschluß... 


Genau gezählt haben wir bislang nicht, 
jedoch stapeln sich in unserem Archiv 
über 9000 Postkarten mit dem richtigen 
Lösungswort des PC INTERNATIO¬ 
NAL Sommerwettbewerbs ’87, unter 
welchen Anke, unsere Redaktionsassi¬ 
stentin und Ihre Glücksfee, die zehn 
Gewinnerzog, (sieheAbb.). 

Um diejenigen unter Ihnen, die keine 
Gelegenheit zur Teilnahme hatten oder 
nach einigen glücklosen Versuchen 
aufgaben, nicht länger auf die Folter zu 
spannen, sei hier das Lösungswort ver¬ 
raten: 

DATENFERNVEBERTRAGVNG. 

Einfach gemacht haben wir es Dinen ei¬ 
gentlich wirklich nicht. Fortgeschritte¬ 
ne Programmierer sind bestimmt bald 
auf den richtigen Lösungsweg geraten; 
waren die meisten Computersymbole 
doch auf Seiten zwischen 70 und 90 zu 
finden: richtig, wir haben die ASCII- 
Werte der einzelnen Buchstaben als 
Grundlage für die Codierung ge¬ 
nommen... 

Dies Wissen nützte jedoch nicht allzu 
viel, denn wir gaben jedem Buchstaben 
einen Offset von null bis acht, der eine 
Entschlüsselung vor der Zeit recht 


schwierig machen sollte. (Wie’s geht, 
kann der interessierte Leser gern an¬ 
hand des Basicprogramms in Ausgabe 
8/87 herausfinden...) 

Eine Überraschung schneite uns jedoch 
schon in der zweiten Julihälfte ins 
Haus, nämlich die erste richtige Ein¬ 
sendung! Nachdem die gesamte Redak¬ 
tion unter Zuhilfenahme des Lügende¬ 
tektors auf undichte Stellen überprüft 
worden war, blieb nur die Möglichkeit, 
daß hier ein besonders findiger Leser 
am Werk war, der (wahrscheinlich mit 
Hilfe des Computers) das System 
durchschaut hatte und den Rest des Lö¬ 
sungswortes hinzukombiniert hatte. 
Alle Achtung! 

Genutzt hat’s natürlich nichts, denn am 
Ende entschied doch das Los... 
Deutlich erhöht wollte auch jener Le¬ 
ser seine Chancen wissen, der sage und 
schreibe 75 (!) Postkarten mit dem 
richtigen Lösungswort versehen und an 
uns abgesandt hatte. 

Mit dem Postkartenporto multipliziert, 
hat der Einsender also 45, — DM in den 
potentiellen Hauptgewinn investiert! 
Ob ihm und den anderen Teilnehmern 
des Wettbewerbs die Glücksfee einen 
der Gewinne beschert hat, sollen Sie 
jetzt erfahren. 


Waren Sie nicht im 
Urlaub??? 

Es scheint so, denn bei der 
Menge Postkarten, die uns 
bis zum Einsendeschluß 
erreichten, muß Ihre 
dabeigewesen sein,.. 


Die Gewinner 


Den ersten Preis, einen funkelnagel¬ 
neuen PC 1512 mit Farbmonitor, ei¬ 
nem Diskettenlaufwerk und Drucker 
gewaim 

Dieter Weiß, 8423 Offenstetten 
Der zweite Preis, eine Festplatte mit 20 
MB Speicherkapazität zum Einstecken 
in die Expansionsslots, geht an 
Rainer Brandt, 

4052 Korschenbroich 2 
Den dritten Preis, ein Softwarepaket 
im Wert von 500, — DM, kann bald 
Sabine Braun, 7030 Böblingen 
in Empfang nehmen. 

Die Preise 4 — 10, je ein Jahresabo der 
PC INTERNATIONAL, gehen an 
Uta Engels, Herzberg, 2223 Meldorf 
Andrea Gdok, 5144 Wegberg 
Markus Speidel, 7404 Ofterdingen 
Karin Bönnemann, 5758 Fröndenberg 
Alex Dexel, 1000 Berlin 45 
Michael Deibler, 7141 Möglingen 
Eigin Schürholz, 5353 Mechernich 
Den glücklichen Gewinnern wünschen 
wir viel Spaß mit ihren Preisen! Allen 
anderen Teilnehmern danken wir für 
die rege Beteiligung und wünschen für 
das nächste Mal mehr Glück. 
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Entdecken Sie jetzt mit Volkner 
die Welt der Elektronik! 


Jeder Artikel nur DM 5-- Gleich ankreuzen. 

Bitte Ihre Artikel ankreuzen , die ganze Seite heraustrennen und heute noch an Völkner absenden, 



Schnell' 
verbindungs* und Meß¬ 
strippen: 10 Strippen 

m S Karben: weiß, schwarz, rot, 

grün, gelb, mit beidseitig i- 1 

isohenen Krokodil¬ 
klemmen. '-' 


5r 




HiFi- ^ 
Stereo-Kopf¬ 
hörer: Ohne Bügel, 


u 


daher federleicht, mit pro¬ 
blemlosem Sitz am Ohr. t—n 

Enorme Klangfülle. |_| 



Feinlöflcolben 

Leichte Ausführung für alle 
elektronischen Arbeiten. 
Schutzkontakt-Zuleitung, 
220V/25W. ^^ 


Elektronik-' 

Lot 1 mm, \ 
die beliebte 
Menge, 15 m, in 
Kunststoff-Dose 


□ 




Mikro- 
Pocket-Kamera 110: 


Elektro¬ 
nisches Taschen-Klavier 


Verblüffend klein, ...paßtin 
jede Hosentasche und ist 
völlig unkompliziert zu r—, 
bedienen. 

Ohne Film. > -1 


Ein Riesenspaß für groß und 
klein, Dieser Winzling spielt 
alle Melodien klar 
und rein. 


□ 



Sortiment 
Standard- 
Mini-Widerstände 


Sortiment 

Keramik-Konden¬ 

satoren 


Axiale Ausf., nur 0 X 2,5 mm 0 

klein, mit langen i- 1 

Anschlußdrähten, | | 

250 Stück. '-' 


1 pF bis 3000 pF, ca 25 versch, 

Werte, 500 Stück gut i- 1 

sortiert. i 


Als Dankeschön für Ihre 
Bestellung erhalten 
Sie diesen 
Alles¬ 
schneider »Cutter« sowie 
gratis den neuen Völkner- 
Elektronik - Führer mit über 
480 Seiten. 



5r 



RENK¬ 
FORCE* 

Stecker- 
Netzgerät: 

Universal-Netzgerät. 
passend in alle 
Steckdosen. 



ÖL-PEN .Das Pflegeöl 
aus der Raumfahrt. 
Schmiert, pflegt, kon¬ 
serviert, löst Rost und 
Schmutz, verharzt nicht, 
fettet nicht, kriecht an 
die innersten Schmier¬ 
stellen. 



Elektronischer 
Antennenverstärker für 
Autoantennen: 

2stufiger Antennenverstärker 

für alle Pkw’s i- 1 

mit 12-V-Bordnetz. 



S- 




Sortiment 

Montage- 






schrauben 

Enthält ca. 400 Teile 
übersichtlich in einem 
Sortierkasten. 


mm 

□ 





Vorname, Name 


Straße 


PLZ/Oit 


Die ganze Seite 
gleich aus schneiden und 
absenden an: 


Völkner electronic 
GmbH+Co.KG 
Postfach 5320 
3300 Braunschweig 


Sie erhalten die Sendung portofrei gegen Rechnung 
















I Programm 



Reine Textfenster könnte man hingegen im ASCII-Forraat spei¬ 
chern und durch eine entsprechend schnelle Ausgaberoutine 
ausgeben. Genau diese Methode benutzt die BASIC-Befehlser- 
weiterung PAGE. 

Der Textausgabebefehl basiert auf einer neuen Grundkonzep¬ 
tion. In den meisten Anwenderprogrammen werden Hilfsme- 
nues oder Eingabemasken durch einzelne PRINT-Befehle aus¬ 
gegeben. Diese Methode ist insbesondere für große Eingabe¬ 
masken oder Menues sehr umständlich und verbraucht sehr viel 
Speicherplatz. Außerdem führt die Ausgabe von Grafikzeichen 
mit Hilfe von ?CHR$ zu unübersichtlichen Programmen. Der 
PAGE-Befehl benutzt ein anderes Verfehren. Texte für Einga¬ 
bemasken oder Hilfsfenster werden mit einem speziellen Text¬ 
editor geschrieben und dann als Textcode gespeichert. Dieser 
Code muß vom eigenen BASIC-Programm geladen werden und 
kann dann mit Hilfe des PAGE-Befehls ausgegeben werden. Die 
PAGE-Textausgabe ist weitgehend unabhängig von der normalen 
Textausgabe. Es können weiterhin alle Möglichkeiten des 
PRINT-Befehls genutzt werden (einschließlich Hardwarescrol¬ 
ling). 

Die Ausgabegeschwindigkeit des PAGE-Befehls ist mit 0. 42 
s/2000 Zeichen mindestens 7 mal schneller als die normale Bild¬ 
schirmausgabe. Der maximale Speicherbedarf für einen Text¬ 
bildschirm beträgt 2000 Bytes. Dieser Speicherbedarf kann 
noch verringert werden, da PAGE spezielle Steuercodes für 
Linefeed, TAB-Kommando und eine Stringfunktion enthält. 
Durch konsequente Anwendung dieser Steuercodes kann der 
Speicherbedarf für übersichtlich geschriebene Fenster erheb- 




Schnelle Textausgabe 
für MODE 2 mit PAGE-RSX 


Echte Fenstertechnik mit CPC-Rechnern schien bisher auf¬ 
grund des geringen Speicherplatzes und der Rechenge¬ 
schwindigkeit unmöglich zu sein. Bislang wurde Fenster¬ 
technik dadurch realisiert, daß ganze Bildschirmspeicher- 
bereiche einfach kopiert wurden. Mit dieser Form der Spei- 
cherui^ lassen sich nur wenige Fenster verwalten, da der 
Speicherbedarf sehr hoch ist. 


lieh verringert werden. So belegt zum Beispiel ein komprimier¬ 
tes Fenster mit 40 x 10 Zeichen nur ca. 200 Bytes. Mit einem 
reservierten Speicher von lOkB lassen sich somit 50 verschie¬ 
dene Fenster erzeugen. 

Außer den zur Textkomprimierung dienenden Steuercodes 
kennt PAGE auch Codes, die die Darstellungsart der Buchsta¬ 
ben verändern. Durch entsprechende Steuercodes sind Normal¬ 
schrift, Inversdarstellung, Fettschrift, Kursivschrift, Unterstrei¬ 
chen, Blockgrafikzcichen und maskierte Darstellung in einem 
Fenster möglich. Die Darstellung von verschiedenen Schriftar¬ 
ten ist durch die Verwendung der ZeichematrixtabcUe im ROM 
und einer zweiten im RAM möglich. Der Speicherbereich der 
Tabelle im RAM beginnt bei &9FFC. 


Anwendung der BASIC-Erweiterung 
a) Der Pageeditor 


Der Pageeditor (Filename EDIT. BAS) dient zur Erzeugung von 
Bildschirmfenstern, die dann in eigenen Programmen mit dem 
Befehl IPAGE ausgegeben weiden können. Gleichzeitig dient der 
Editor auch als Demonstration der Leistung.sföhigkcit der 
neuen Bildschirmausgabe. 

1. Hauptmenue des Editors: 

Nach dem Laden des Editors erscheint an der linken oberen Sei¬ 
te des Bildschirms das Hauptmenue. In diesem kann durch Aus¬ 
wahl des gewünschten Menuepunktes, mit Hilfe der Cursorta¬ 
sten, das entsprechende Unterprogramm des Editors aufgeru¬ 
fen werden. 

2. Fenster bearbeiten: 

Bevor ein Fenster bearbeitet werden kann, muß zuvor noch die 
Größe des Fensters mit Fenster dimensionieren festgelegt wer¬ 
den. Nun kann Fenster bearbeiten ausgewähll werden. Sie kön¬ 
nen nun mit dem Texteditor Ihr Fenster erstellen. In der Kopf¬ 
zeile sehen Sie ein Menue, in dem Sie zwischen dem Hauptme¬ 
nue. der Anzeige der Tastenbelegung für Blockgrafikzeichen 
und dem Einstellmenue für Schriftarten wählen können. Die 
Auswahl erfolgt durch Druck auf SHIFT und einer der Hori¬ 
zontalen Cursortasten. Bestätigt wird hier mit COPY, da die 
ENTER-Tästen die normale Funktion in einer Textverarbeitung 
übernehmen. Wollen Sie die Schriftart wechseln, so wählen Sie 
im Schriftmenue die gewünschte Schriftart aus und bestätigen 
mit ENTER. Von nun an schreiben Sic in der gewünschten 
Schrift weiter. 
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3. Fenster laden: 

Es können generell nur, vom Programm erzeugte, Editorcodes 
mit der Extension .PAG geladen werden. Die geladenen Fen¬ 
ster können dann weiterbearbeitet werden. Bei der Frage des 
Programms nach dem Dateinamen ist dieser ohne Namenser¬ 
weiterung anzugeben! 

4. Fenster normal speichern: 

Hier können Sie das Fenster als Editorcode oder als ausführ¬ 
baren Pagecode speichern. Der Pagecode wird hier im unkom¬ 
primierten Format gespeichert. Dieser Code kann von eigenen 
Programmen besser manipuliert werden als komprimierter fti- 
gecode. 

5. Fenster komprimiert speichern: 

Hier wird das Fenster als speicherplatzsparender Pagecode ge¬ 
speichert. Die Codeoptimierung wird vom Programm vorge¬ 
nommen. 

6. Fenster Statistik: 

In diesem Unterprogramm wird der Speicherbedarf für kom¬ 
primierten und unkomprimierten Code ermittelt und ausgege¬ 
ben. Außerdem werden die jeweiligen Ausführungszeiten der 
Fenster ausgegeben. 

7. Icons zeichnen, laden, saven: 

Hier können Sie vorhandene Miniaturgrafiken laden oder sel¬ 
ber bis zu drei Grafiken entwerfen. Diese »Icons« werden im 
Eingabemodus durch Druck auf SHIFT Fl, F2, F3 gezeichnet. 
Das Laden und Speichern der Icons geschieht durch entspre¬ 
chende Abfragen menuegesteuert. 

b) Benutzung der Befehlserweiterung in BASIC-Pn^rammen: 
Der Programmcode des PAGE-Befehls ist nicht frei verschieb¬ 
bar und muß an Adresse 39900 geladen werden (39 kB frei für 
BASIC!). Der Programmcode ist nicht verschiebbar, da sich das 
Maschinenprogramm während des Programmablaufes aus Spei¬ 
cherplatzgründen selbst verändert. 

1. Befehlssyntax: 

IPAGE,li,re,ob,un,adr,wi # 

Mit den ersten vier Parametern wird die Größe des Ausgabe¬ 
fensters festgelegt, entsprechend dem BASIC-Befehl Window. 
Beim Parameter Ai^sse muß die Adresse stehen, an der Sie den 
PAGE-Code geladen haben. Der letzte Parameter ist eine Stan¬ 
dardwindownummer (0—7). Dieses Window hat nach Ausfüh¬ 
rung des PAGE-Befehls die gleiche Größe wie das ausgegebe¬ 
ne Fenster. Es müssen grundsätzlich alle Parameter vollständig 
und logisch richtig angegeben werden. Unlogische Fensterkoor¬ 
dinaten führen zu der Fehlermeldung Improper Argument. Feh¬ 
lende Parameter zu Operand missing. 

Ein Beispielprogramm 
10 MEMORY 37999 
20LOAD "PAGE. BIN" 

30 CALL 39900 

40 LOAD "FENSTER. WIN",38000 
50 IPAGE,5,75,3,223.8000,1 

Sollten Sie ein Fenster mit Icons benutzen, so müssen Sie den 
Iconcode laden. Im Beispielprogramm müßte ein Zeile 35 ste¬ 
hen (35 LOAD “ICONS. ICO“). 

Außerdem sollte darauf geachtet werden, daß die unteren 16 kB 
im RAM nicht als Speicher für Fenstercode benutzt werden dür¬ 
fen, da während der Bildschirmausgabe das untere ROM ein¬ 
geschaltet ist. 

3. Steuercodes der Ausgabe: 

Der PAGE-Befchl liest ASCII-Codes aus dem angegebenen 
Speicherbereich und stellt diese auf dem Bildschirm dar. 
ASCII-Codes kleiner 32 werden nicht dargestellt, sondern be¬ 
wirken zum Teil eine Änderung der Darstcllungsart oder Text- 
kompriraierung. 



Steuercodes: 

0: Textendmarkierung Abbruch der Ausgabe 

7, n: Tabulatorfunktion n = Anzahl der Leerzeichen 

8, m,n: Stringfunktion m = ASCII-Code des Strings n = An¬ 

zahl der Zeichen < 255 
9: Unterstreichen ein- oder ausschalten 

10: Schrift maskiert ein- oder ausschalten 

11: Zweitzeichensatz ein- oder ausschaltcn 

13: Linefeedfunktion 

24: Inversdarstellung ein- oder ausschalten 

c) Algorithmus der Ausgaberoutine 
Der PAGE-Befchl greift direkt auf den Bildschirmspeicher zu 
und verwendet wenige Firmwareroutinen. Im Übrigen gilt 
grundsätzlich, daß Firmwareroutinen zu langsam für zeitkriti¬ 
sche Programme sind. 


Hinweise zum Abtippen 


Die Eingabe des Programmes sollte sinnvollerweise wie folgt 
vor sich gehen: 

1. Abtippen, Abspeichem und Starten der Loader (Listings 1—4) 
Diese Programme erzeugen nach dem Starten Binärfiles, die 
vom Hauptprogramm gebraucht werden. 

2. Abtippen, Abspeichern und Starten des Hauptprogrammes 
(Listing 5) 

Dann können Sie mit dem definieren Ihrer Windows beginnen. 

(Uwe Ehnert) 
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[—Programm 



für 464-664-6128 


2Q ’ikltklkA************************* it*« [1416] 

20 ■* PAGE RSX - Befehl « [457] 

30 '* by Uwe Ehnert * [596] 

40 ’* * [175] 

50 ’* * [175] 

50 ********************************** [1416] 

70 ■ [117] 

80 DATA 00,00,00,00,00,00,00,00,00,00 [822] 

90 DATA 00,00,00,00.00,00,CD,06,B9,21 [1616] 

100 DATA 00,39,11,FC,9F,7E,47,CB,3F,B0 [2181] 

110 DATA 12,23,13,E5,21.00.3C,CI,ED,42 [1703] 

120 DATA C5,E1,20,ED,D5,C1,78,57,79,5F [2001] 

130 DATA 06,7F,21,00.39.7E,CB.3F.12,23 [1211] 

140 DATA 13,7E,CB,3F,12,23,13,7E,12,23 [1879] 

150 DATA 13.7E,12.23,13,7E,12,23,13,7E [1949] 

160 DATA CB,27,12,23,13,7E,CB,27,12,23 [1115] 

170 DATA 13,7E,CB,27,12,23.13,10,04,CD [1615] 

180 DATA 09,B9,01.4B,9C,21.55,9C,C3,D1 [1252] 

190 DATA BC,50.9C,C3,59,9C,50,41,47,C5 [1926] 

200 DATA 00.00,00.00,00,FE,06,C2,BC.9F [1896] 

210 DATA CD,ll,BC,rE,02,28.05,3E,02,CD [1097] 

220 DATA 0E,BC,3E,00,32,E7,9B,21,B5,9D [2247] 

230 DATA 36,13,23,36,1A,3A,E8,9B,FE,AA [1775] 

240 DATA 3E,0A,CC,C4.9D,3A,E9,9B,FE,FF [2133] 

250 DATA 3E,18,CC,C4,9D,DD,7E.O0,FE,O8 [1302] 

260 DATA D2,B8,9F,CD,B4,BB,DD,66,0A,DD [1920] 

270 DATA 56,08,DD.6E,06,DD,5E,04,7A,FE [2403] 

280 DATA 51.D2,B8.9F,94,DA,B8,9F,7B,FE [2043] 

290 DATA 1A,D2,B8,9F,95,DA,B8,9F,25,2D [1749] 

300 DATA 15,1D,CD,66,BB,97,32,E2,9B,DD [2081] 

310 DATA 66,0A,DD,6E.06.25,2D,CD.1A,BC [1528] 

320 DATA 2B,22,rC,9B,DD,66,08,DD,6E,04 [1841] 

330 DATA 25,2D,CD,1A,BC,23,22,DE.9B,DD [1763] 

340 DATA 7E,08,DD,46,0A,90,3C.32,E0,9B [2327] 

350 DATA 47.3E.50,90,32,El,9B,DD.46,03 [1218] 

360 DATA DD,4E,02,21,3F,9C,ED,42,DA,B8 [929] 

370 DATA 9F,0B,ED,5B,DC,9B,3E,00,32,E6 [1646] 

380 DATA 9B,21,00,39,22,EA,9B,CD,06,B9 [1452] 

390 DATA 03,13,0A,FE,00,CA,C5,9F,2A,DE [2041] 

400 DATA 9B.ED.52.CA,C5,9F,7A,FE.C8,20 [2010] 

410 DATA 03,11,00,C0,C5,3A,E1,9B,FE,00 [1882] 

420 DATA 20,09,3A.E2,9B.FE,50,28.1B,18 [2012] 

430 DATA 1D,3A,E2,9B,47,3A,E0.9B,90,20 [1497] 

440 DATA 13,3A,El,9B,47,13,7A,FE,C8,20 [1286] 

450 DATA 03,11,00,C0,10,F5,97,32,E2,9B [2102] 

460 DATA C1,0A,FE,20,30,05,CD,C4,9D,18 [2333] 

470 DATA B1,3Ä,E2,9B.3C,32,E2,9B,0A,D6 [1920] 

480 DATA 20,2A,EA,9B,C5,FE,00,28,13,47 [1989] 

490 DATA 4F,CB,38.CB,38,CB,38.CB,38,CB [1696] 

500 DATA 38,CB,21,CB,21,CB,21.09,EB,01 [698] 

510 DATA 00,08,lA,00,00,77,09.13,U,00 [1873] 

520 DATA 00,77,09,13,lA,00,00,77,09,13 [1427] 

530 DATA 1A,00,00,77,09.13,1Ä.OO,00,77 [1651] 

540 DATA 09,13,1Ä,00,00,77,09.13,1A,00 [1993] 

550 DATA 00,77,09,13,lA,00,00,77,01,00 [1361] 

560 DATA 38,ED,42,EB,C1,C3,12.9D.FE,07 [957] 

570 DATA 28,1F,FE,08,28,62,FE,0A,CA,49 [1150] 

580 DATA 9F,FE,0B,CÄ,F2,9E,FE,0D,Cä,AC [2379] 

590 DATA 9E,FE.18.CA,8D,9F,FE,09,CA,1E [1131] 

600 DATA 9F,03,C9.O3,C5,D5,0A,32.E3,9B [1228] 

610 DATA 47,3A,E2,9B,80.32,E5,9B,47,3A [1837] 

620 DATA EO,9B.98,38.2D,3A,E9.9B.E5,21 [1145] 

630 DATA E8.9B,B6,E1,4F,EB,3A,E3,9B,57 [1472] 

640 DATA 1E.08,CD,47,BC,D1,3A,E3,9B.47 [2203] 

650 DATA 13,7A,FE,C8.20,03,11.00,CO.10 [1458] 

660 DATA F5,C1,3A.E5,9B,32,E2,9B,18.BB [1531] 
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670 DATA D1,C1,18.B7.21,87,9D,36,C9.21 [1564] 

680 DATA C0,9D,36.C9,21,39,9D,36,C9,21 [1674] 

690 DATA 58,9D,36,C9.21,43,9D,36,C0,03 [1173] 

700 DATA C5,2A.EA.9B,0A.D6,20,FE.00.28 [2420] 

710 DATA 04,CD,75,9D,09.C1,03.C5.0A,47 [1688] 

720 DATA C5,E5,CD,88,9D,13,2A,DE,9B,ED [1451] 

730 DATA 52,28,1F,3A,E2,9B,3C,32,E2.9B [1245] 

740 DATA CD.2B,9D,3A,E2,9B,FE,00,20,01 [1055] 

750 DATA 1B.7A,FE,C8,20,03,11,00,C0,3C [1741] 

760 DATA El,CI,10,D4.21,87.90,36,09,21 [1236] 

770 DATA C0,9D,36,C1,21,39,9D,36,18.21 [2167] 

780 DATA 58,9D,36,C1,21,43,90,36,20,CI [1395] 

790 DATA 28,03,C3,E5,9D,E1,E1,C3,C5,9F [1137] 

800 DATA C5,D5,3A.E9,9B,E5,21,E8,9B,B6 [961] 

810 DATA E1,4F,EB,3A,E2,9B,47,3A,E0,9B [1393] 

820 DATA 90,28,2A,32,E3,9B,57,1E,08,CD [505] 

830 DATA 47,BC,D1,3A,E3,9B,47,13,7A,FE [1552] 

840 DATA C8,20,0A.2A,DE,9B,ED,52,28,03 [2692] 

850 DATA 11,00,C0.10.EE,C1,3A,EO,9B,32 [1539] 

860 DATA E2,9B,C3,E5,9D,D1,C1,C3,E5.9D [1122] 

870 DATA E5,3A.E6,9B,FE,00,28,12,CD,06 [931] 

880 DATA B9,3E.00,32,E6,9B,21,00,39,22 [1631] 

890 DATA EA,9B.E1,C3,E5,9D,CD,09,B9,3E [1803] 

900 DATA FF,32,E6,9B.21,FC,9F,22,EA,9B [886] 

910 DATA E1,C3,E5,9D,3A,E7,9B,FE,00,28 [1456] 

920 DATA 12,3E,00,32,E7,9B,E5,21,B5,9D [2319] 

930 DATA 36,13,23,36,1A,E1,C3,E5,9D,3E [2324] 

940 DATA 01.32,E7.9B,E5,21,B5.9D,36,3E [1224] 

950 DATA 23,36,FF,E1,C3,E5.9D,3A,E8,9B [1538] 

960 DATA FE,AA,28,20,3E,AA,32.E8,9B,E5 [1110] 

970 DATA D5,C5,06,08,3E,F6,OE.ÄA.21,8D [949] 

980 DATA 9D,11,05.00,77,23,71,19,10,FA [1294] 

990 DATA C1,D1,E1,C3,E5,9D,3E,00.32,E8 [2009] 

1000 DATA 9B,E5,D5,C5,06,08,97.21,8D,9D [1078] 

1010 DATA 11,05,00,77,23,77,19,10,FA,CI [997] 

1020 DATA D1,E1,C3,E5,9D,3A,E9,9B,FE,00 [1904] 

1030 DATA 28,12,3E,00,32,E9,9B,3E,F6,32 [1380] 

1040 DATA 5B,9F,3E,AA,32,5D,9F,C3,70,9r [1774] 

1050 DATA 3E,FF,32.E9,9B.3E,EE,32,5B,9F [1397] 

1060 DATA 3E,FF.32,5D,9F,C3,55,9F,1E,05 [2008] 

1070 DATA 18,02,1E,16,DF,C2,9F,C9,94,CA [1541] 

1080 DATA FD,CD,09,B9,C9,45,6D,6E,6C,78 [1354] 

1090 DATA 75 [64] 

1100 MEMORY 39899:CLS [1353] 

1110 FOR n=39900 TO 40904:GOSUB 1150:NEXT [1605] 

1120 IF PEEK(&BDCE)=t5B THEN GOSUB 1160 [2923] 

1130 IF PEEK(&BDCE)=&5F THEN GOSUB 1190 [3027] 

1140 SAVE”page.bin",b,39900,1006:END [2007] 

1150 READ a$:POKE n,VAL(’'&"+a$) cRETURN [1946] 

1160 POKE &9FB8,&3E:POKE &9FBC,&3E [2143] 

1170 POKE t9FC2.A5A:POKE &9FC3,6CB [1528] 

1180 RETURN [555] 

1190 POKE i9FB8,i3E:POKE fi9FBC,i3E [2143] 

1200 POKE &9FC2,&55:POKE &9FC3,iCB [2060] 

1210 RETURN [555] 


in 

********************************** 

[1416] 

20 

• « 

RILFSFENSTER * 

[507] 

30 

********************************** 

[1416] 

40 

• 


[117] 

50 

DATA 

96,08,9A,06,OB,18,20,48,20,41 

[325] 

60 

DATA 

20,55,20,50,20,54,20,4D,20,45 

[1161] 

70 

DATA 

20,4E,20,55,20,45,20,OB,18,08 

[1358] 

80 

DATA 

9A,06,9C,95,07,21,95,95,07,04 

[1790] 

90 

DATA 

0B,A6,C5,CE.D3,D4,C5,D2,80,C2 

[2104] 

LIsting Page 




22 PC 10’87 













Programm—| 


100 DATA C5,C1,D2,C2,C5,C9,D4,C5,CE,0B [21761 

110 DATA 07,OB,95,95,07,04,OB,A6,C5,CE [1168] 

120 DATA D3,D4,C5,D2,80,C4,C9,CD,C5,CE [1254] 

130 DATA D3,C9,CF,CE,C9,C5,D2.C5,CE,0B [1831] 

140 DATA 07,07,95,95,07.04,OB,A6,C5,CE [1201] 

150 DATA D3,D4,C5.D2,80,CC.C1,C4.C5.CE [1488] 

160 DATA OB,07,10,95,95,07,04,OB,A6,C5 [1961] 

170 DATA CE,D3.D4.C5,D2,80,CE,CF,D2,CD [2227] 

180 DATA C1,CC,80,D3,D0,C5,C9,C3,C8,C5 [1993] 

190 DATA D2,CE,OB,07,05,95,95,07,04,OB [1896] 

200 DATA A6,C5,CE,D3,D4,C5,D2,80,CF,D0 [1096] 

210 DATA D4,C9,CD,C9,C5.D2,D4.80,D3,D0 [1417] 

220 DATA C5,C9,C3,C8,C5,D2,CE,0B,07,02 [515] 

230 DATA 95,95,07,04,0B,A6,C5,CE,D3,D4 [1663] 

240 DATA C5,D2.80,B3,D4,C1,D4,C9.D3,D4 [2248] 

250 DATA C9,CB,08,80,07,06,07,05,95,95 [2166] 

260 DATA 07,04,0B.A9,C3,CF,CE,D3,80,C5 [1245] 

270 DATA CE,D4,D7,C5,D2.C6,C5,CE,80,CF [2266] 

280 DATA C4,C5,D2,80,CC,C1,C4,C5,CE.0B [1838] 

290 DATA 07,03,95,95,07,04,OB,BO,D2,CF [1606] 

300 DATA C7,D2,C1,CD,CD,C5,CE,C4,C5,08 [1700] 

310 DATA 80,06,OB.07,OB,95,95,07,03,OB [1321] 

320 DATA 08,80,OD,OB,07,11,95,93,08,9A [335] 

330 DATA 21,99 [445] 

340 DATA OB,18,07,lA,50,07,02,41,07,02 [1753] 

350 DATA 47,07,02,45,07,02,45,07,02,44 [1908] 

360 DATA 07,02,49,07,02,54,07.02,4F,07 [2278] 

370 DATA 02,52,07.1A,OB,18,0A,20,0A,0B [1090] 

380 DATA 80,80,A8,C1,D5,D0,D4,CD,C5,CE [2279] 

390 DATA D5.C5,80,80,OB,0A,07.14,47,72 [1594] 

400 DATA 61,66,69,6B,74,61,73.74,65,6E [1479] 

410 DATA 07,11.53,63,68,72,69,66,74,61 [1874] 

420 DATA 72,74,65,6E,07,04,OA,OB,18,07 [1542] 

430 DATA lA,50,07,02,41,07.02.47.07,02 [1600] 

440 DATA 45,07,02,45,07,02,44,07,02,49 [1564] 

450 DATA 07,02,54,07,02,4F,07,02,52,07 [1449] 

460 DATA lÄ,OB,18,OA,07,03,48,61,75,70 [1599] 

470 DATA 74,6D,65,6E,75,65,07,14,0A,07 [1985] 

480 DATA 02,0B,A7.D2.C1,C6,C9,CB,D4,C1 [1733] 

490 DATA D3,D4,C5,CE,OB,07,O2,OA,O7,OF [1423] 

500 DATA 53,63.68,72,69,66,74.61,72,74 [1525] 

510 DATA 65,6E,O7,O4,OA,0B,18,O7,lA,5O [2026] 

520 DATA 07,02,41,07,02,47,07,02.45,07 [1670] 

530 DATA 02,45,07,02.44,07,02,49,07,02 [1445] 

540 DATA 54,07,02,4F,07,02,52,07,lA.OB [1265] 

550 DATA 18,0A,07,03,48,61,75,70,74,6D [1229] 

560 DATA 65,6E,75,65,07,16,47,72,61.66 [1442] 

570 DATA 69,6B,74,61,73.74,65,6E,07,0F [2099] 

580 DATA 0Ä,07,02,0B.B3,C3,C8,D2,C9,C6 [1908] 

590 DATA D4,C1.D2,D4,C5,CE,0B,07,03,0A [1459] 

600 DATA 20,OA [460] 
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610 DATA 96,9A,9A,18,20,18,06,18,53,20 [2422] 

620 DATA 43,20,48,20,52,20,49,20,46,20 [825] 

630 DATA 54,20,0B,18,9A,9A,9C,95,07,13 [1209] 

640 DATA 95,95,07,03,OB.AE,CF,D2,CD,CI [1974] 

650 DATA CC,D3,C3,C8,D2,C9,C6,D4,0B,07 [1655] 

660 DATA 03.95,95,07,03,0B,A7,D2.C1,C6 [1246] 

670 DATA C9,CB,DA,C5,C9,C3,C8,C5.CE,0B [1952] 

680 DATA 07,03,95,95,07,03,OB,A6,C5.D4 [1665] 

690 DATA D4,D3,C3,C8,D2,C9,C6,D4,0B,07 [1049] 

700 DATA 05,95,95.07,03,0B,AB,D5,D2,D3 [1124] 

710 DATA C9,D6,D3,C3,C8,D2,C9,C6,D4,0B [1678] 

720 DATA 07,03,95,95,07,03,OB.A9,CE,D6 [2654] 

730 DATA C5,D2,D3,D3,C3,C8,D2,C9,C6,D4 [2200] 

740 DATA OB,07,03,95,95,07,03,OB,A9.CE [1236] 

750 DATA D6,C5,D2,D3.8F,A6,C5,D4,D4,0B [939] 

760 DATA 07,05,95,95,07,03,OB,A9,CE,D6 [1605] 

770 DATA C5,D2,D3,8F,AB,D5,D2,D3,C9,D6 [1643] 

780 DATA OB. 07,03,95,95,07,03,OB,B5,CE [1470] 

790 DATA D4,C5,D2,D3,D4.D2,C9,C3,C8,C5 [1808] 

800 DATA CE,OB,07,03,95,95,07,03,OB,B5 [1589] 

810 DATA CE,D4,8E,80,8F,80,Ä6,C5,D4,D4 [1641] 

820 DATA OB,07,05,95,95,07,03,OB,B5,CE [1406] 

830 DATA D4,8E,80.8F,80,AB,D5,D2,D3,C9 [2333] 

840 DATA D6,OB.07,03,95.95,07,03,OB,AD [1890] 

850 DATA C1,D3,CB,C5,CE,D3,C3,C8,D2,C9 [1961] 

860 DATA C6,D4,OB,07,03,95,95,07,13,95 [2242] 

870 DATA 93,08,9A,13,99 [345] 

880 DATA 96,9A.18,54,61,73,74,65,6E,62 [1428] 

890 DATA 65,6C,65,67,75,6E.67.20,47,72 [1555] 

900 DATA 61,66,69,6B,7A,65,69,63,68,65 [1811] 

910 DATA 6E,20,6F,68,6E,65,20,53,48,49 [1585] 

920 DATA 46,54,18,9A,9C,95,20,96,9A,9C [2258] 

930 DATA 96,9A,9C,96,9A,9C,96,9A,9C,96 [2451] 

940 DATA 9A,9C,96,9A,9C,96,9A.9C,96,9A [1714] 

950 DATA 9C,96,9A,9C.96,9A,9C,96,9Ä,9C [866] 

960 DATA 96,9A,9C,96,9A,9C,20,95,95,20 [2040] 

970 DATA 95,91,95,95,92,95,95,93,95,95 [1758] 

980 DATA 94,08.95,05,96,95,95,97,95,95 [1245] 

990 DATA 98,95,95,99,95,95,90,95,95,8D [1507] 

1000 DATA 95,95,BE,95,95,20,95,20,95,95 [1851] 

1010 DATA 20,93,9Ä,99,93,9A,99,93,9A,99 [1706] 

1020 DATA 93,9A.99,93,9A,99,93,9A,99,93 [1812] 

1030 DATA 9A,99,93,9A,99,93,9A,99,93,9Ä [1981] 

1040 DATA 99,93,9A,99,93,9A,99,93,9A.99 [1509] 

1050 DATA 20,95,95,07,02,96,9A,9C,96,9A [1894] 

1060 DATA 9C,96,9A,9C,96,9A,9C,96,9A,9C [866] 

1070 DATA 96,9A,9C,96,9A,9C,96,9A,9C,96 [2451] 

1080 DATA 9A,9C,96.9A,9C,96.9A,9C,96,9A [1714] 

1090 DATA 9C,07,03,95,95,07,02,95,Dl,95 [1547] 

1100 DATA 95,D7,95,95,C5,95,95,D2,95,95 [1425] 

1110 DATA D4,95,95,D9,95,95,D5,95,95,C9 [1640] 
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I—Programm 


1120 

DATA 

95,95,CF,95,95,DO,95,95,AO,95 

[844] 

1130 

DATA 

95,88,95,07,03,95,95,07,02,93 

[1703] 

1140 

DATA 

9A,99,93,9A,99,93,9A,99,93,9A 

[1981] 

1150 

DATA 

99,93,9A,99,93,9A,99,93,9Ä,99 

[1509] 

1160 

DATA 

93,9A,99.93,9A,99,93,9A,99,93 

[1812] 

1170 

DATA 

9A.99.93,9A,99,07,03,95,95,07 

[1771] 

1180 

DATA 

03,96,9A,9C,96,9A,9C,96,9A,9C 

[2586] 

1190 

DATA 

96,9A,9C,96,9A,9C,96,9A,9C,96 

[2451] 

1200 

DATA 

9A,9C,96,9A,9C,96.9A,9C,96,9A 

[1714] 

1210 

DATA 

9C,96,9A,9C,96,9A,9C,07,02,95 

[1261] 

1220 

DATA 

95,07,03,95,CI,95,95,D3,95,95 

[1343] 

1230 

DATA 

C4,95,95,C6,95,95,C7,95,95,C8 

[1692] 

1240 

DATA 

95,95.CA,95,95,CB,95,95,CC,95 

[1490] 

1250 

DATA 

95,9A,95,95,98,95,95,BD,95,07 

[702] 

1260 

DATA 

02,95,95,07,03,93,9A,99,93,9A 

[2813] 

1270 

DATA 

99,93,9A,99,93,9A,99,93,9A,99 

[1509] 

1280 

DATA 

93,9A,99,93,9A,99.93.9A,99,93 

[1812] 

1290 

DATA 

9A,99,93,9A,99,93,9A,99,93,9A 

[1981] 

1300 

DATA 

99,07,02,95,95,07,04,96,9A,9C 

[1270] 

1310 

DATA 

96,9A,9C,96,9A,9C,96,9A,9C,96 

[2451] 

1320 

DATA 

9A,9C,96,9Ä,9C,96,9A,9C,96,9A 

[1714] 

1330 

DATA 

9C,96,9A,9C,96.9A,9C,96,9A,9C 

[866] 

1340 

DATA 

80,80,07,02,95,95,07,04,95,DA 

[1263] 

1350 

DATA 

95,95,D8,95,95,C3,95,95,06,95 

[1380] 

1360 

DATA 

95,C2,95,95,CE.95,95.CD.95,95 

[959] 

1370 

DATA 

8C,95,95,8E,95,95,8F,95,95,BC 

[2595] 

1380 

DATA 

95,07,04,95,95,07,04,93,9A,99 

[1021] 

1390 

DATA 

93,9A,99,93,9A,99,93.9A,99,93 

[1812] 

1400 

DATA 

9A.99,93,9A,99,93,9A,99,93.9A 

[1981] 

1410 

DATA 

99,93,9A,99,93,9Ä.99.93.9A,99 

[1509] 

1420 

DATA 

07,04,95,93,08,9ä,29,99 

[1146] 

1430 

DATA 

18,96.9A,18,54,61,73,74,65,68 

[1433] 

1440 

DATA 

62,65,6C,65,67,75,6E,67,20,47 

[2151] 

1450 

DATA 

72,61,66,69,68,7A,65,69,63,68 

[1687] 

1460 

DATA 

65,6E,20,6D,69,74,20,53,48,49 

[1903] 

1470 

DATA 

46,54,20.18,9A.9C.95,20,96,9A 

[1778] 

1480 

DATA 

9C,96,9A,9C,96,9A,9C,96,9A,9C 

[866] 

1490 

DATA 

96,9A,9C,96,9A.9C,96,9A,9C,96 

[2451] 

1500 

DATA 

9A.9C,96,9A,9C,96,9A,9C,96,9A 

[1714] 

1510 

DATA 

9C,96.9A,9C,96,9A,9C,20,95,95 

[1068] 

1520 

DATA 

20,95,81,95,95,82,95,95,83,95 

[1552] 

1530 

DATA 

95,84,95,95,85,95,95,86,95,95 

[1403] 

1540 

DATA 

87,95,95,88,95,95,89,95,95,BF 

[1556] 

1550 

DATA 

95,95,9D,95,95,A3,95,95,20,95 

[1759] 

1560 

DATA 

20,95,95,20,93,9ä,99,93,9A,99 

[1622] 

1570 

DATA 

93,9Ä,99,93,9A,99,93,9A,99,93 

[1812] 

1580 

DATA 

9A,99,93,9Ä,99,93,9A,99,93,9A 

[1981] 

1590 

DATA 

99,93.9A,99.93,9A,99.93,9A,99 

[1509] 

1600 

DATA 

93,9A,99,20.95,95,07,02,96,9A 

[1706] 

1610 

DATA 

9C,96,9Ä,9C,96,9A,9C,96^9A,9C 

[866] 

1620 

DATA 

96.9A,9C.96.9A,9C,96,9A,9C,96 

[2451] 

1630 

DATA 

9A,9C,96,9A,9C,96,9A,9C,96,9ä 

[1714] 

1640 

DATA 

9C,96,9A.90,07,03,95,95,07,02 

[1405] 

1650 

DATA 

95,Bl,95.95,87,95,95,A5,95,95 

[1264] 

1660 

DATA 

82,95,95,84.95,95,89,95.95,85 

[1694] 

1670 

DATA 

95,95,A9,95.95.AF,95,95,B0,95 

[1659] 

1680 

DATA 

95,DC,95,95.DB,95,07,03,95,95 

[1590] 

1690 

DATA 

07,02.93.9A,99,93,9A,99.93,9A 

[1407] 

1700 

DATA 

99.93,9A,99,93,9A,99,93,9A,99 

[1509] 

1710 

DATA 

93,9A,99,93.9A,99.93.9A.99.93 

[1812] 

1720 

DATA 

9A,99,93,9Ä,99,93,9A,99.07.03 

[1775] 

1730 

DATA 

95,95,07,03,96.9A,9C,96,9A,9C 

[1678] 

1740 

DATA 

96.9A.9C,96,9A,9C,96,9A,9C,96 

[2451] 

1750 

DATA 

9A,9C,96,9A,9C,96,9A,9C,96,9A 

[1714] 

1760 

DATA 

9C,96,9A,9C,96,9A,9C,96,9A,9C 

[866] 

1770 

DATA 

07,02,95,95,07,03,95.Al,95,95 

[1901] 

1780 

DATA 

83,95,95,A4,95,95,A6,95,95,A7 

[1988] 

1790 

DATA 

95,95,A8,95,95,AA,95,95,A8.95 

[1476] 

1800 

DATA 

95,AC,95,95,8A,95,95.8B,95,95 

[940] 

1810 

DATA 

DD,95.07,02,95,95,07,03,93,9A 

[2013] 

1820 

DATA 

99,93.9A,99.93,9A,99,93.9A,99 

[1509] 

1830 

DATA 

93,9A,99,93,9A,99,93,9A,99,93 

[1812] 

Lisling Page 




1840 DATA 9A,99,93,9A,99,93,9A,99,93,9A 
1850 DATA 99,93,9ä,99,07.02,95,95,07,04 
1860 DATA 96,9A,9C,96,9A,9C,96,9A,9C,96 
1870 DATA 9A,9C,96,9A,9C,96.9A,9C,96,9ä 
1880 DATA 9C,9€,9A,9C,96,9A,9C,96,9A,9C 
1890 DATA 96,9A,90,80,80,07,02,95,95,07 
1900 DATA 04,95,BA,95,95,88,95,95,A3,95 
1910 DATA 95,86,95,95,A2,95,95,AE,95,95 
1920 DATA AD,95,95,90,95,95,9E,95,95,9F 
1930 DATA 95,95,00,95,07,04,95,95,07,04 
1940 DATA 93,9A,99,93,9A,99,93,9A,99,93 
1950 DATA 9A,99,93,9A,99,93,9A,99,93,9A 
1960 DATA 99,93,9A,99,93,9A,99,93,9A,99 
1970 DATA 93,9A,99,07,04,95,93,08,9A,29 
1980 DATA 99 

1990 DATA 18,07,0F,18,0B,18,20,49,20,43 
2000 DATA 20,4F,20,4E,20,45,20,44,20,49 
2010 DATA 20,54,20,4F,20,52,08,18,18,07 
2020 DATA 0F,18,8F,20,08.DA,16,8A,80,80 
2030 DATA 07,16,8F,8F,20,CF,08,80,14,CF 
2040 DATA 8A,80,09,0B,B4,C1,D3,D4,C5,CE 
2050 DATA C2,C5,CC,C5,C7,D5,CE,C7,80,9A 
2060 DATA 08,09,08,08,80,06,08,20,8F,8F 
2070 DATA 20,CF,08,80,14,CF,8A,20,08,08 
2080 DATA 80,16.OB,20,8F,8F.80,CF,08,80 
2090 DATA 14,CF,8A,20,08,A3,D5,D2,D3,CF 
2100 DATA D2.08,80,03,9A,80,CC,C9,8E,8C 
2110 DATA D2,C5,3E,8C,CF,08,8E,03,0B,8F 
2120 DATA 8F,20,CF,08.80,14,CF,8A,20,08 
2130 DATA B3,D4,C9,C6,D4,80.91,80,80,9ä 
2140 DATA 80,B3,A8,A9.A6,B4,8F,A3,D5.D2 
2150 DATA D3,8E,80,OB,8F,8F,20,CF,07,14 
2160 DATA CF,8A,20,0B,B3,D4,C9,C6,D4,80 
2170 DATA 90,80,80,9A,80,A3,B2.B4,AC,80 
2180 DATA 8F,A3,D5,D2,D3.8E,80,0B,8F,8F 
2190 DATA 20,CF,07,14,CF,8A,20,OB,83,DO 
2200 DATA C5,C9,C3,C8,C5,D2,CE,9Ä,80,A5 
2210 DATA AE,84,A5,82,08,80,04,OB,07,03 
2220 DATA 8F,8F,20,CF,07,14,CF,8A,20,OB 
2230 DATA 08,80,12,OB,07,05,8F,8F,20,CF 
2240 DATA 07,14,CF.8A,08,D2,18,8F,8F,20 
2250 DATA CF,07,14,CF,8A,08,80,OF,D3,08 
2260 DATA DA,07,80,8F,8F,20,CF,07,14,CF 
2270 DATA 8A,80,OB,A9,C3,CF,CE,80,AD,C1 
2280 DATA 08,D3,03,D4,C1,C2,0B,80,D3,CF 
2290 DATA 08,80,05,CF,80.8F,8F,20,CF,07 
2300 DATA 14,CF,8A,20,08,80,OD,20.D3,CF 
2310 DATA 08,80,05,CF,80,8F,8F,20,CF,07 
2320 DATA 14,CF,8A,07,03,OB,80.80.91,80 
2330 DATA 9A,80,91,OB,07,05,D3.CF,08,80 
2340 DATA 05,CF,80,8F,8F,20,08,D8,16,8A 
2350 DATA 07.05.OB,08,80,05,OB.07,05,D3 
2360 DATA 08,D8,07,80,8F,18,07,32,18,45 
2370 DATA 4D,4E,4C,4C,55 
2380 DATA 96,08,9A,09,0B.18,80,A9,CE,C8 
2390 DATA C1,CC,D4,D3,D6,C5,D2,DA,C5,C9 
2400 DATA C3,C8,CE,C9,D3,D3.80.0B,18,08 
2410 DATA 9A,0A,90,95,07,28,95,95,07,28 
2420 DATA 95,95,07,28,95,95,07,28,95,95 
2430 DATA 07,28,95,95,07,28,95,95,07,28 
2440 DATA 95,95.07,28.95,95,07,28,95,95 
2450 DATA 07,28,95,95,07,28,95,95,07,28 
2460 DATA 95,95,07,28,95,95,07,28,95,95 
2470 DATA 07,28,95,95,07,28,95,95,07,28 
2480 DATA 95,95,07,28,95,95,07,28,95,95 
2490 DATA 07,28,95.95,07,28,95,93.08,9A 
2500 DATA 28,99 

2510 MEMORY 26999:DEFIHT n:CLS 

2520 FOR n=27000 TO 27282:GOSUB 2660:NEXT 

2530 RESTORE 340 

2540 FOR n=27300 TO 27562:GOSUB 2660:NEXT 
2550 RESTORE 610 
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Wissen ist 
Macht... 


- kann eine unbegrenzte Anzahl von Fragen und Antworten verwalten! 

- hat ständig ca. 400 Fragen plus Antworten im Speicher! 

- bietet die Möglichkeit eigene Fragen einzugeben, und zwar mit einem kom¬ 
fortablen Editor! 

- besitzt eine Supergrafik mit Window-Technik! 

- ist vollkommen menuegesteuert 

- zeigt bis Jetzt noch nie dagewesene Tricks mit dem Videocontrolier! 

- stellt zu jeder Frage 5 mögliche Antworten vor! 

- kann man mit der ganzen Familie spielen, da jeder eine Mindest-Chance von 
1-5 hat! 


fürCPC464 • 664 • 6128 


Kassettenversion 

24,- DM 

Diskette 3“ 29, — DM 



^ ;Ji'NUEimBERO 

i HO HAT 

^C.F.BENZ DIE -"^HUPPERTAL 
S ERSTE 
f AUTOFABRIK La 
S GEGRUENDET 9^ 


•tM 





Kassette 24,- DM, Diskette 3“ 29,- 


in den Hefen der Galaxie 
wartet die letzte 
Herausforderung auf Sie 

D»rZsUherr. ein Wesen aus Den Tiefen des Wsllraums. 
nel einen kosmischen Wettbewerb ausgeschrieben 
um etwas Ze^lreuung in sein unendlich langes 
Leben zu bringen. Den STARTEST 
Der Preis sind zusllzl«he Lebensjahre Jede Inielligenz. 
obSpinitenwesenvanAndaluB. ob Menschen von der 
Erde oder Sehlafenda Sleine «on Murks können 
teilneninen Doch vor dem ereehnlen Preis snhen fl Prü¬ 
fungen, die der Kandidal über sich ergehen lassen ntuB, 
fl Prülungen. die sowohl die lr>lelllgenz als auch 
die Geschicklichkell lesten 

Nur wenige können Sie alle Oeslehen. abei wei es schafft, 
dem Winkl eine Verlängerung seiner Lebensspanne 


für CPC 464 ■ 664 • 6128 


CPC Power-Spiele-Paket! 


muß ma mit Strategie spielen, da der Beste in jedem Wissensgebiet am Ende 
noch Zusatzpunkte bekommt! 

wurde mit äußerst schnellen Suchroutinen ausgestattet, die verhindern, daß 

eine schon richtig beantwortete Frage nochmals erscheint! 

ist spielbar mit 1-4 Einzelspielern oder in Gruppen mit einem Vielfachen 

davon! 

erkennt automatisch, welche Fragenblöcke auf der Diskette noch unbeant¬ 
wortet sind! 

zeichnet sich nicht nur durch die o g. Punkte als höchst zukunftssicher ausl 


Copyshop 

Das universelle Hardcopy-Programm 
für Schneider CPC 464/664/6128 

Autor: Matthias Uphoff 



COPYSHOP Im Detail: 

- Hardcopy in 4 (1) Rirmaten: DIN A4. DIN AS. ia5x64cm und 
21£x13.5cm 

- superschnelle Hsrdcopy-Rouline: DIN A4 in ca 4 Uinulen |DUP4000) 

• arbeilel in allen 3 Modes 

- AnpaBmenkte für JEDEN Epson-kompallblen Drucker 

- läutt ebenfalls mii den Seikosha-Druckern QP-500 CPC. GP-SSO CPC und GP-1000 CPC 

- Anpassung an Drucker möglich, die mil 12S0 Punkten pro Zeile arbeilen. z B CPA-BO GS 

• Okimale ML 162 - Anpassung kann beim Verleg angefordeil werden 

- Anpassung such fQr Drucker, die die Bilbild-Bytes verkehrt herum drucken (das USB unlen siati 
oben}, z B NEC P2-PinwrilBr 

- 32 Farbrsster über Menue wählbar 

- Grafikeditor 

- komfortable Pull-Down-Menues 

- schnelle Fill-Roullne 

- beliebige AusschniltvergröOerungen 

- Bildschirm mv^ieren 

- selbslrelozierbare Hardcopy-Roulirten für eigene Programme 

- neue Save- und Load-Boutmen erkennen automatisch Mode und Farbwerte 

- Freezer - saved aufTäsiendruck Screenshots aus laufenden BASIC-Programmen. die anschließend aus- 
gedruckt werden können 

‘ Das auldem Datenträger milgetieierte Programm »Screen Save-, weiches beliebige Screens aui Disk 
abspeichert, arbeitet nur nach Entfernen des Volek-ConlroHers 

Und die Weltneuheit: Hardc(H>y’Sfmulatorauf dem Bildschirm II 

Sie können sich Ihre Hardcopy vor dem endgültigen Ausdruck aul dem Bildschirm an- 

sehen! 


18 tolle Spiele für Ihren CPC 464, 664 oder 6128 auf 4 
Kassetten bzw. 3“ Disketten zum Knüllerpreis von nur 
50,- DM (4 Kassetten) 

70,- DM (4 Disketten) 

nur solange 
Vorrat reicht 


COPYSHOP ist das ultimative Hardcopy-Programm für alle Schneider Computer. 

Erhältlich auf Kassette (DM 59,-) und 3’'-Diskette (DM 69.-) 
inkl ausführlicher Bedienungsanleitung (unverbindliche praisempiehiung] 

Bestelikarte ausfüllen und absenden an: 

DMV Daten- und Medien-Verlagsgesellschaft mbH 
Postfach 250 ■ Fuldaer Str. 6 
3440 Eschwege ■ Tel. (0 56 51) 87 02 




















I —Programm 


2560 FOR n=27600 TO 27865:GOSUB 2660:NEXT [3089] 

2570 RESTORE 880 [747] 

2580 FOR n=27900 TO 28448;GOSUB 2660:mT [2833] 

2590 RESTORE 1430 [745] 

2600 FOR n=28500 TO 29051:G0SUB 2660:NEXT [2020] 

2610 RESTORE 1990 [912] 

2620 FOR n=29100 TO 29479:GOSUB 2660:NEXT [1677] 

2630 RESTORE 2380 [586] 

2640 FOR ü=29500 TO 29621:GOSUB 2660:NEXT [2265] 

2650 SAVE"wco(Je",b,27000,2623:EKD [1341] 

2660 READ a$;POKE n,VAL("&"+aS)-.RETURN [1946] 


'***********************«********* [1416] 

20'* TITELBILD * [618] 

30 ********************************** [1416] 

40 ' [117] 

50 DATA 08,20,4F,96,08,9A,04,90,20,20 [946] 

60 DATA 96,08,9A,04,90,20,20.96,08,9A [959] 

70 DATA 04.90,20,20.96,08,9A,04,90,20 [1663] 

80 DATA 20,96,08,9A,04,90.20,20,96,08 [1518] 

90 DATA 9A.04,90,20,20,96,9A,90,20,20 [1098] 

100 DATA 96,08,9A.04,90,20,20,96,08,9A [959] 

110 DATA 04,90,20,20,96,08,9A,05,90,20 [1728] 

120 DATA 20,95,96,9Ä.9A,90,95,20,20,95 [1967] 

130 DATA 96,9Ä,9A,90,95,20,20,95,96,08 [1702] 

140 DATA 9A,03,99,20,20,95,96,08,9A,03 [2098] 

150 DATA 99,20,20,95.96.08,9A.03,99,20 [1688] 

160 DATA 20,95,20,96,9A,90,95,20,20,95 [2046] 

170 DATA 80,95,20,20,93,9A,90,96,9A,99 [1611] 

180 DATA 20,20,95,96.9ä,9A,90,95,20,20 [1796] 

190 DATA 95,96,08,9A,03,90,95,20,20,95 [1448] 

200 DATA 93,9A,9ä,99.95,20,20,95,93,9A [916] 

210 DATA 9A,99,95,20,20,95,95,96,9A,9A [1903] 

220 DATA 90,20,20,95,93.9A.9A,90,08,20 [1451] 

230 DATA 03,95,93,9A,9A,90,08,20,03,95 [1396] 

240 DATA 20,95,20,95,95,20,20,95,80,95 [1959] 

250 DATA 08,20,04,95,95,08,20,04,95.95 [754] 

260 DATA 20,20,95,95,20,20,95,93,08,9A [1534] 

270 DATA 03,99,95,20,20,95,96.08,9A.03 [2192] 

280 DATA 99,20.20,95,96,9A,9A,9C,95,20 [1736] 

290 DATA 20,95,95,93,9A,90,95,20,20,95 [1712] 

300 DATA 96,9A,9A,99,08,20,03,95,96,9A [2144] 

310 DATA 9A,99,08,20,03,95,20,95,20,95 [1456] 

320 DATA 95,20,20,95,20,95,08,20,04,95 [1368] 

330 DATA 95,08,20,04,95,95,20,20,95,95 [1311] 

340 DATA 20,20,95,96,9A,9A,9C,96,99,20 [1379] 

350 DATA 20,95,95,08,20,06.95,95,20,20 [1917] 

360 DATA 95,95,20,20,95,93,9A,9A,99,95 [2149] 

370 DATA 20,20,95,93,08,9A,03,9C,20,20 [1676] 

380 DATA 95,93,08,9A.03,9C.20.20.95,20 [1425] 

390 DATA 93,9A,99,95,20,20,95,20,95,08 [1346] 

400 DATA 20,04,95,95,08,20,04,95,93,9A [1301] 

410 DATA 9A,99,95,20,20,95,95,20,20,95 [2329] 

420 DATA 95,08,20,03,93,99.08,20,06,93 [1304] 

430 DATA 99,20,20,93,99,20,20,93,08,9A [1785] 

440 DATA 04,99,20,20,93.08.9A,04.99,20 [1646] 

450 DATA 20,93,08,9A,04,99,20,20,93,08 [1341] 

460 DATA 9A,04,99,20,20,93,9A,99,08,20 [1797] 

470 DATA 04,93,99,08,20,04,93,08,9A,04 [977] 

480 DATA 99,20,20,93,99.20,20,93,99,20 [1331] 

490 DATA 20.80,08,08,40,80,20,08,80,38 [1786] 

500 DATA A4,80,OB,91,99,98,97,80,C2,D9 [1271] 

510 DATA 80,B5,D7,C5,80,A5,C8,CE,C5,D2 [2376] 


Lteting Pay 


520 DATA D4,OB,08,20,38,OB,08,80,17,OB [1730] 
530 MEMORY 26999:DEFINT d;CLS [623] 

540 FOR n=27000 TO 27479:GOSUB 560:NEXT [1760] 
550 SAVE "titel.Win",b,27000,480:END [2289] 

560 READ aS:POKE n,VAL("&"+a$);RETURN [1946] 


****************** ******:** [1416] 

20 '* HILFSPROGRAMME FUER EDITOR * [1864] 

30 ********************************** [1416] 

40 ' [117] 

50 ********** COMPRESS.BIN ********** [2147] 

60 DATA 11,00,00,21,A8,61.DD,21.30,75 [1372] 

70 DATA DD.7E,00,13,DD,BE,01,20,27,DD [1144] 

80 DATA BE,02,20,22.06,01,DD.2B,DD,23 [1379] 

90 DATA 04,28,05,DD,BE,00,28,F6,36,08 [2124] 

100 DATA 23,77,23,05,05,13,13,70,DD,7E [1760] 

110 DATA 00,FE,FF,28,10.23,18,DO,FE,FF [2108] 

120 DATA 28,09,DD,7E,00,77,DD,23.23,18 [1081] 

130 DATA C3,DD,22,D4,99,ED,53,D6,99,C9 [1162] 

140 *********** DISC.BIN ************* [1541] 

150 DATA CD,B3,9B,DD,E5,CD,77,BC,DD,E1 [2051] 

160 DATA DD,6E,02,DD,66,03,CD,83,BC,32 [1251] 

170 DATA C3,9B,C3,7A,BC,CD,B3,9B.DD.E5 [1258] 

180 DATA CD,8C,BC,DD.E1,3E,02,DD,6E.02 [1550] 

190 DATA DD,66,03,DD,5E,04,DD,56,05,01 [1675] 

200 DATA 00,00,DC,98,BC,CD,8F,BC,C9,DD [924] 

210 DATA 6E,00,DD,66,01,46,23,5E,23,56 [1262] 

220 DATA EB,11.A8,51,C9 [775] 

230 ********** INVLINE.BIN *********** [2196] 

240 DATA DD,66,02,DD,6E,04,CD,1A.BC,E5 [3080] 

250 DATA 06,08,C5.DD.46,00,7E,EE,FF,77 [2587J 

260 DATA 23,10,F9,CI,El,11,00,08,19,E5 [2132] 

270 DATA 10.EC,El,C9 [782] 

280 ********** CONVERT.BIN *********** [1477] 

290 DATA 21,57,98,01,88,88,11,30,75,97 [1659] 

300 DATA 02,12,13,03,3E.20,02,03,E5,ED [1776] 

310 DATA 42.02.E1.30.F0,C9,21,B8,88,11 [1568] 

320 DATA 57,98,01,30,75,3A,El,9A,BE.CA [1328] 

330 DATA DO,9Ä,FE,00,CA,76,9A.FE,01,CA [964] 

340 DATA 76,9A,FE.02,CA,47,9A,FE,03.CA [2051] 

350 DATA 47,9A,FE,04,CA,4E,9Ä,FE,05,CA [1650] 

360 DATA 55,9A,FE,06.CA.55,9A,FE,07,CA [2456] 

370 DATA 60,9ä,FE,08,CA,67,9A,FE,09,CA [1408] 

380 DATA 67,9A,C3,72,9A,3E,0B,02,03,C3 [1757] 

390 DATA 76.9A,3E,18,02,03,C3,76.9A,3E [2076] 

400 DATA 0B,02,03,3E,18,02,03,C3,76,9A [1781] 

410 DATA 3E.09,02,03,C3,76,9A,3E.0B,02 [861] 

420 DATA 03,3E,09,02,03,C3.76,9A,3E,OA [2283] 

430 DATA 02,03,7E,32,E1,9A,FE,00,28,52 [1130] 

440 DATA FE.01,28.4E,FE,02,28,lE,FE,03 [869] 

450 DATA 28,lA,FE,04,28.IC,FE,05,28,lE [995] 

460 DATA FE.06,28.lA.FE,07,28,20,FE,08 [1436] 

470 DATA 28,22,FE,09,28,lE,18,26.3E,OB [1802] 

480 DATA 02,03,18,26,3E,18,02,03,18.20 [1427] 

490 DATA 3E,OB,02.03,3E.18,02,03,18,16 [1685] 

500 DATA 3E.09,02,03,18,10,3E,09,02,03 [1303] 

510 DATA 3E,OB,02.03,18,06,3E,OÄ,02,03 [2061] 

520 DATA 18,00,23,7E,02,03,23,E5,EB.ED [1481] 

530 DATA 52,11.57,98.E1,D2,0B,9A,C9,00 [979] 

540 MEMORY 39000:CLS [518] 

550 RESTORE 60 [745] 

560 FOR n=39300 TO 39380:GOSÜB e70:NEXT [2386] 

570 RESTORE 150 [749] 

580 FOR d=39800 TO 39874:GOSÜB 670:MEXT [1629] 

590 RESTORE 240 [587] 
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Programm—i 


600 

610 

620 

630 

640 

650 

660 

670 

FOR n=39700 TO 39734:GOSUB 670:MEXT 
RESTORE 290 

FOR n=39400 TO 39649:GOSUB 670:NEXT 
SÄVE”coopress”,b,39300,82 
SAVE”disc",b.39800,77 

SAVE"invline",b,39700,36 

SAVE'’convert", b, 39400,249 :END 

READ aS:P0KE n,VAL{*'t“+aS) :RETURN 

[1775] 

[809] 

[2066] 

[1519] 

[1195] 

[1080] 

[1140] 

[1946] 

1000 

■********************************* 

[1416] 

1010 

'* Erzeugung von Windows * 

[2694] 

1020 

■ * * 

[175] 

1030 

'* (c) 1987 by Uwe Ehnert * 

[1674] 

1040 

■ * * 

[175] 

1050 

• * * 

[175] 

1060 

'*****************************«*** 

[1416] 

1070 

BORDER 0:ON BREAK GOSUB 8600 

[1199] 

1080 

MODE 2:0UT tBC00,l:OUT &BD00,0 

[1860] 

1090 

MEMORY 23999:DEFINT b-o,u-z 

[1781] 

1100 

DIM ico(120):INK 0,0:INK 1,26 

[2159] 

1110 

KEY DEF 1,1,1:KEY DEF 8,1,2 

[1767] 

1120 

KEY DEF 0.1,3:KEY DEF 2,1,4 

[1008] 

1130 

KEY DEF 6,0,13,0 

[1021] 

1140 

KEY DEF 18,0,13,0 

[691] 

1150 

WIND0Wn,2,34,3,12 

[1039] 

1160 

LOAD" iPAGE.BIN": CALL 39900 

[1483] 

1170 

LOAD"!TITEL.WIN",27000 

[1694] 

1180 

IPAGE,2,79,7,15,27000,0:G0SUB 8560 

[1386] 

1190 

LOAD" 1DISC.BIN” 

[1257] 

1200 

LOAD" 1C0NVERT.BIN" 

[688] 

1210 

LOAD"invline.bin",39700 

[1993] 

1220 

LOAD"co]iipress.blQ" 

[1652] 

1230 

L0AD"WC0DE.BIN",27000:CLOSEIN 

[2498] 

1240 

POKE 42476,4:POKE 42477,64 

[800] 

1250 

POKE 42478,l:POKE 42479,32 

[1141] 

1260 

POKE 42480,8:P0KE 42481,128 

[1007] 

1270 

POKE 42482,2:POKE 42483,16 

[1651] 

1280 

adr=&98BC:POKE adr,ll:adr=adr+l 

[2274] 

1290 

FOR n=l TO 8 

[816] 

1300 

POKE 3ar,8 

[294] 

1310 

POKE adr+1,222 

[512] 

1320 

POKE adr+2,255 

[467] 
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1330 adr=adr'+'3 

[390] 

1340 NEXT 

[350] 

1350 GOSUB 8520 

[1008] 

1360 IPAGE,1,80,1,25,39100,0 

[1320] 

1370 IPAGE,1,80,1,2,27300,0 

[1390] 

1380 GOSUB 8560 

[1064] 

1390 DATA 4FF,&00,t00,&FE,400,400 

[721] 

1400 DATA 40B,4FF,400,40B.4FE,400 

[752] 

1410 DATA 418,4FF,400,418,40B,4FF 

[1061] 

1420 DATA 418,40B,4FE,409,4FF,400 

[569] 

1430 DATA 409,40B,4FF,409,40B,4FE 

[672] 

1440 DATA 40A,4FF,400 

[333] 

1450 DIM cfelda0,2) :RESTORE 1390 

[2525] 

1460 FOR n=0 TO 10 

[566] 

1470 READ cfeld(n,0) 

[1225] 

1480 READ cfeld(n,l) 

[1235] 

1490 READ c£eld(n,2) 

[1237] 

1500 NEXT 

[350] 

1510 ■ 

[117] 

2000 ****** HAÜPTMENUE ***•• 

[948] 

2010 ' 

[117] 

2020 IPAGE,1,35,2,13,27000,0 

[1093] 

2030 GOSUB 8030 

[826] 

2040 yh=0:GOSüB 2150 

[1826] 

2050 aS=INKEY$:IF a$="" THEN 2050 

[1550] 

2060 a=ASC{a$) 

[1036] 

2070 IF a=13 OR a=224 THEN 2170 

[2039] 

2080 IF a=4 THEN GOSUB 2150:yh=yh+l:GOTO 2 
110 

[2714] 

2090 IF a=3 THEN GOSUB 2150:yh=yh-l:GOTO 2 
110 

[2061] 

2100 GOTO 2050 

[361] 

2110 IF yh=8 THEN yh=0 

[828] 

2120 IF yh=-l THEN yh=7 

[1142] 

2130 GOSUB 2150 

[861] 

2140 GOTO 2050 

[361] 

2150 CALL 39700,yh+3,4,29 

[599] 

2160 RETURN 

[555] 

2170 ON yh+1 GOSUB 2670,2190,4210,4690,550 
0,6030,6660,9000 

[2335] 

2180 GOTO 2020 

[359] 

2190 ' 

[117] 

2500 ’*** VINDOWGROESSE **** 

[1118] 

2510 ’ 

[117] 

2520 CLS#1 

[373] 

2530 IF wflag=0 THEN wflag=l:GOTO 2590 

[1595] 

2540 LOCATE#!,6,3:PRINTn,"Fenster Vorhand 
en !" 

[2980] 

2550 LOCATE#1.6,5:INPUT#l,"loeschen [j/n]: 
",ant$ 

[4082] 

2560 IF UPPERS(antS)<)"J" THEN RETURN ELSE 
IPAGE,1,80,3,25,39100,0 

Listing Page 
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Auf Zulcunft programmiert 

Die Software die mitwächst je DM 678, 

Heute: PC-DOS. MS-DOS - Morgen: Netzwerk, UNIX, PS/2, OS/2 
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I —Programm 


2570 IPAGE,1.35,2,16,27000,0 

[1086] 

2580 CLSn 

[373] 

2590 LOCATEtl,3,3:INPUT#1,"Fensterbreite [ 
1. .80];",b 

[2940] 

2600 LOCATE#1,3,5:INPUTI1,"Fenst erhoehe [ 
1. .23]:",h 

[3974] 

2610 IF b=0 OR h=0 THEN wflag=0:RETURN 

[2735] 

2620 l=(81-b)\2+l:r=l+b-l 

[1050] 

2630 o=(25-h)\2+2:u=o+h-l 

[1441] 

2640 CALL 39400 

[317] 

2650 POKE 35001+(b*h*2),255:POKE 35003+(b* 
h*2},255 

[1752] 

2660 CALL 39426:x=0;y=0:RETURN 

[1316] 

2670 ' 

[117] 

3000 ********* EDITOR ******** 

[889] 

3010 ' 

[117] 

3020 IF VFLAG=0 THEN CLS#l:LOCATE#l,4,5;PR 
INT#1,CHR${7);"*** Fenstergroesse ? ***" 
:GOSUB 8020:RETURN 

[4761] 

3030 1 PAGE,1,80,1,2,27300,0:!PAGE,1,35,3,1 
3,39100,0 

[2960] 

3040 lPAGE,l,r,o,u,30000,0:LOCATE x+l,y+l: 
CALL &BB8A 

[2728] 

3050 SPEED KEY 10,1:GOSUB 8030 

[1952] 

3060 a$=INKEYS:IF a$="" THEN 3060 

[1437] 

3070 c=ASC(aS):flag=0 

[1649] 

3080 IF c<5 OR c=13 THEN GOSÜB 3360:LOCATE 
x+l,y+l:CALL &BB8B 

[3348] 

3090 IF c=224 THEN CALL 39426:GOSUB 3460:G 
OTO 3060 

[3042] 

3100 IF c=246 THEN Benue=menue-1:GOSUB 340 
0:GOTO 3060 

[2323] 

3110 IF c=247 THEN menue=menue+l:GOSUB 340 
0:G0T0 3060 

[3575] 

3120 IF c=127 THEN x=x-l:c=32:flag=l:CALL 
&BB8B:GOSUB 3360;GOTO 3230 

[3132] 

3130 x=x-{c=l);x=x+(c=2) 

[2349] 

3140 y=y+(c=3):y=y-(c=4) 

[1341] 

3150 IF c=13 THEN x=0:y=y+l 

[1073] 

3160 IF c=0 THEN x=b-l:y=y+l 

[1585] 

3170 IF c<5 OR c=13 THEN GOSUB 3360:LOCATE 
x+l,y+l:CALL &BB8A:GOTO 3060 

[4236] 

3180 IF c<32 THEN 3060 

[1217] 

3190 IF INKEY(13)=32 AND icanz>0 THEN smer 
k=set:set=2:fl=l 

[2453] 

3200 IF (INKEY(14)=32 OR INKEY(5)=32) AND 
icanz>0 THEN s[iierk=set:set=3:fl=l 

[4966] 

3210 IF fl=l THEN zahl=zahl+l 

[1419] 

3220 IF 2ahl=16 THEN zahl®0:fl=0:set=smerJc 

[2692] 

3230 adr=39000 

[609] 

3240 FOR n=0 TO 2 

[566] 

3250 eld(set,n) 

[787] 

3260 POKE adr+n,cfeld(set,n) 

[1554] 

3270 IF ni=&FF THEN POKE adr+n,c 

[789] 

3280 IF ni*4FE THEN POKE adr+n,c+96 AND 2 
55 

[2260] 

3290 NEXT 

[350] 

3300 !PAGE,l+x,l+x,o+y,o+y,39000,7 

[1968] 

3310 POKE 35000+{x+y*b)*2,set 

[1295] 

3320 p=35001+(x+y*b)*2 

[666] 

3330 IF (set=l OR set=3 OR set=6 OR set=9) 
AND (c+96<256) THEN POKE p,c+96 ELSE POKE 

[4788] 

P f c 

3340 IF flag=0 THEN x=x+l 

[817] 

3350 GOSUB 3360:LOCATE x+l,y+l:CALL 4BB8A: 
GOTO 3060 

[3224] 

3360 x=x HOD b:y=y MOD h 

[1124] 

3370 IF xfO THEN x=b-l 

[988] 

3380 IF y<0 THEN y=h-l 

[1612] 

3390 RETURN 

[555] 

3400 IF menue-3 THEN menue^O 

[1884] 

3410 IF nenue=-l THEN nienue=2 

Listing Page 

[749] 


3420 IF menue=0 THEN IPAGE,1,80,1,2,27300, 

[944] 

3430 IF menue=l THEN !PAGE,1,80,1,2,27386, 

[1393] 

3440 IF menue*2 THEN !PAGE,1,80,1,2,27474, 

[1143] 

3450 GOSUB 8030:RETURK 

[1456] 

3460 IF menue=0 THEN 2020 

[338] 

3470 ON menue GOSUB 3490,4000 

[1423] 

3480 LOCATE x+l,y+l:CALL &BB8A:RETURN 

[1836] 

3490 • 

[117] 

3500 ***** GRAFIKTASTEN ***** 

[897] 

3510 ’ 

[117] 

3520 GOSUB 8030 

[826] 

3530 1PAGE,18,60,2,15,27900,0:CALL &BB06 

[2349] 

3540 !PAGE,18,60,2,15,28500,0:CALL 4BB06 

[2129] 

3550 GOSUB 3400 

[1009] 

3560 IPAGE,18,60,3,15,39100,0 

[1622] 

3570 IPAGE,l,r,o,u,30000,0 

[1219] 

3580 RETURN 

[555] 

3590 ' 

[117] 

4000 ***** SCHRIFTARTEN ***** 

[800] 

4010 ' 

[117] 

4020 IPAGE,60,80,2,16,27600,0 

[1581] 

4030 GOSUB 8030 

[826] 

4040 GOSUB 4140 

[1069] 

4050 a$=INKEYS:IF a$='"’ THEN 4050 

[1502] 

4060 a=ASC(a$) 

[1036] 

4070 IF a=13 OR a=224 THEN 4160 

[1993] 

4080 IF a=4 THEN GOSUB 4140:ys=ys+ltGOTO 4 

[1365] 

110 


4090 IF a=3 THEN GOSUB 4140:ys=ys-l:GOTO 4 

[3372] 

110 


4100 GOTO 4050 

[503] 

4110 IF ys=ll THEN ys=0 

[1606] 

4120 IF ys=-l THEN ys=10 

[1041] 

4130 GOSUB 4140:GOTO 4050 

[2335] 

4140 CALL 39700,ys+3,62,15 

[969] 

4150 RETURN 

[555] 

4160 set=ys:IF set»l THEN senue^l 

[1463] 

4170 GOSUB 3400 

[1009] 

4180 IPAGE,60,80,3,16,39100,0 

[1435] 

4190 IPAGE,l,r,o,u,30000,0 

[1219] 

4200 RETURN 

[555] 

4210 * 

[117] 

4500 ***** FENSTER LADEN **** 

[947] 

4510 * 

[117] 

4520 GOSUB 8030 

[826] 

4530 CLSn 

[373] 

4540 IPAGE,38,79,2,24,29500,OiVINDOW 39,78 

[1863] 

,3,23 


4550 CLS:CAT:WINDOV 3,3,3,3:PEN 0 

[1730] 

4560 LOCATE#!,5,4:PRINT#1,"Nur Naoen Exten 

[4804] 

Sion .PAG l’* 


4570 LOCATEfl,5,6:INPUT#1,"Filename :",n$ 

[1888] 

4580 IF nS="" THEN 4640 

[536] 

4590 n$=nS+".pag*':CALL 39426 

[1944] 

4600 CALL S9B78,34998,»n$:b=PEEK(34998);h= 

[2342] 

PEEK(34999) 


4610 IF PEEK(&9BC3) 0255 THEN LOCATE#!,5,6 

[5880] 

:PRINT#1,CHR${7) ;’*File nicht vorhanden !'*: 


b=0:GOSUB 8020 


4620 l=(81-b}\2+l:r=l+b-l:POKE 35001+(b*h* 

[2448] 

2),255 


4630 o=(25-h)\2+2;u=o+h-l 

[1441] 

4640 CALL 39426:wflag=l 

[1052] 

4650 IPAGE,1,80,1,2,27300,0 

[1390] 

4660 IPAGE,1,80,3,25,39100,0 

[1279] 

4670 IF b*h>0 THEN IPAGE,l,r,o,u,30000,0:w 

[3392] 

flag=l ELSE wflag=0 


4680 PEN liRETÜRN 

[1269] 

4690 ’ 

[117] 

Lisling Page 
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Joyce-Programmsammlungen Vol. I + II 

Hochwertige Software zu Niedrigpreisen finden Joyce-Anwender jetzt im Rahmen einer Programm¬ 
sammlung in der Angebotspalette des DMV-Verlages. 

Jede Ausgabe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen Anwendungsgebieten 
kommen. Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als komplettes Programmpaket mit 3“ ■ 

Diskette und Bedienungsanleitung ausgeliefert. 


1. Der Character Designer 

Funktion: Komfortable Erstellung eigener Zeichensätze auf 
PCW 6256/6512 und deren Darstellung am Bildschirm! Aus¬ 
druck von ASCII-Files m diesem Zeichensatz unter CP/M Plus 

Leistungsumfang: CD.COM ist der Character- 
Designer, der Editierung oder Neuerstellung von Zeichensäl- 
zen und deren Speicherung erlaubt. Zeichensälze können als 
COM-File abgespeichert werden, d h auch unter CP/M aul¬ 
gerufen und somit aktiviert werden CD-PRINT druckt vor- 
formatierte ASCII-Texte auf dem Joyce-Drucker oder anderen 
Druckern in dem gewünschten Zeichensatz aus 
CRAZY, ORIGINAL, LOCOCHAR und SCRIPT sind 
mitgelieferte Zeictiensätze SCRIPT ist ein Schreibschrift- 
Zeichensatz und wurde freundlicherweise von der Firma Ger- 
des Imperial Software zur Verfügung gestellt SETUP.COM 
erlaubt als Zugabe die Vorwahl einiger Syslemparameter, z.B. 
die der seriellen Schnittstelle! der Tastaturgeschwindigkeit 
und der Floppy-Steprate 



Volume I 

Programmsammlung 
für Schneider Joyce 





2. MGX 


Funktion: Graphische Darstellung von mathematischen 
Funktionen und beliebigen MeBreihen auf Bildschirm oder im 
GroBformat auf dem Drucker 


Leistungsumfang: Neben den arithmetischen Crund- 
funktionen sind auch weitere Funktionen darstellbar, die z B 
unter Mallard-Basic nicht zur Verfügung gestellt werden Es 
können mehrere Funktionen und Meßreinen (diese wiederum 
mit mehreren Meßwerten gleichzeitig dargesteitt werden). Die 
X-undYBereiche können manuell oder automatisch bestimmt 
werden, ebenso ist die Darstellung der Graphen mit X/Y- 
Gltter, X oder Y-Gitter oder ohne Gitter möglich Es ste¬ 
hen drei Auflöeungsstufen zur Verfügung, wobei mit 
Erhöhung der Auflösung auch die Arbeitsgeschwindigkeit ab¬ 
nimmt. Letztendlich kann noch eine beliebige Über¬ 
schrift in die Funktion/Meßreihe eingefügt werden 
Bei der Druckausgabe steht als Standard das A-4-Format 
zur Verfügung; dieses ist jedoch In weiten Grenzen frei vari¬ 
ierbar 


Diskette 3“ 
erhältlich im guten 
Fachhandel oder 
direkt bei DMV 
zum Preis von nur 

DM 59,-* 

(unverb Preisempfehlung) 


Joyce Programmsammlung Vol. II 


SUPERdat 


Eine universelle Dateiverwaltung für PCW 8256/8512 zur Erstellung eigener Dateien. Alle zugehöri¬ 
gen Programme sind in Mallard-Basic geschrieben und verwenden dessen JETSAM-Funktionen zur 
relativen Verwaltung der Datensätze auf Diskette. 


Hinweis: Dies Programm arDeiiel nichl mH Peripneriegerä- 
ten. die den Basiespeictier der PCWs verringern. 


Letabingsumfar^g; 

MASKE isl aas Vorprogramm, miiaamSiedie 
^anaman- und -Längen sowie öie Länge des Sucn- 
Pegntis vorainsteHen können Für /ade gewunsc/rfe 
Dataian (Aaressverwallung, Videoarc/T'v usw.) können 
Sie so aui separaten Daienöisketien eine eigene Mas¬ 
ke an/egen 

SUPERdat isl aas Hauplprogramm, welches die Da¬ 
ten der gewünschten Datei verwaltal. Neben der Ein¬ 
gabe von Daten m die Maske sind mehrere Suchanen. 
so z.S. auch Jo/iersuc/ien möglich. Jede Datei kann 
max acht Felder enthalten, wovon yedes max. 40 Zei¬ 
chen enthalten darf. Die Gesamtlänge emes Datensat¬ 
zes darl 255 Zeichen betragen. Alle Eingaben in eme 
Maske können vor oder nach der Soe/cnerung korei- 

r Tt oder veranderr werden. Das Druekmenu bietet die 
swahl de' auszugebenden Felder (alle, obere, un¬ 
tere oder bestimmte Felder) und eine Schnell- 
iUbersicht8-)druekiunkiion Die meisiverwendeten 
Druekerbefehie können in der Parameteropiion vorein- 
gesieilt werden 


SUPERtmx Dieses Programm stellt eine 
Rundschreib- (Mailmeige-liunkUon für SUPERdat zur 
Merlugung In amen in Laufwerk M belindhchen ASCII- 
Texlfz B miiRPED erstem) werden automatisch vom 
Anwender vorausgewähiie oetietxga Einträge aus be¬ 
liebigen SUPERdai-Oaieien an beliebiger Steile emge- 
tugi: dieser Text wird ausgedrucxt und die nächster 
ausgewShiien Einträge werden in den Text eingelügt 
Weiterhin stellt SUPtRtex auch eine Schnittstelle zu 
LocoScripf dar; so können 30 beliebige Datensätze in 
eine für LocoSeript lesbare Datei umgewandell 
werden 

SUPERcal Der Taschenrechner zu SUPERdat Die¬ 
ser bietet neben den Grundrechenarten auch Wmkel- 
lunklionen. quaaralische- und Prozenitunklionen Eine 
Klammerebene und Memory-Funkiionen vervollständi¬ 
gen das Leistungsangebot dieses Programms SU¬ 
PERcal kann sowohl von der Daiervenwaiiung als auch 
von SUPERlex aus autgarulen werden, das Ergebnis 
der Kalkulation kann dam aulruienden Programm 
übergeben werden 

Diskette 3" erhältlich im guten 
Fachhandel oder direkt bei 
DMV zum Preis von 

DM 49,- 

(unverb. Preisemptehlung) 




Bestellkarte ausfüilen und absenden an; 

DMV Daten- und Medien-Verlagsgesellschaft mbH 
Postfach 250 ■ Fuldaer Str. 6 
3440 Eschwege ■ Tel. (056 51) 8702 

























l~ Programm 


6640 LOCÄTE|l,5,10:PRINT#l/'0ptiniiert : " 
;PEEK(&99D6)+PEEK(&99D7)*256;" Bytes" 

[4471] 

6650 CALL &B506:RETURN 

[1826] 

6660 ' 

[117] 

7000 '****** ICONEDITOR ******* 

[1357] 

7010 ' 

[117] 

7020 GOSUB 8030 

[826] 

7030 IF icanz>2 THEN CLS|l:LOCATE#l,6,5:PR 
INT|l,"Älle Icons definiert !”:LOCATE#l,6, 
7;INPUTil,"Icons loeschen [J/N] :",ant$:IF 
UPPERS(antS)="J’' THEN icanz=0:lflag=0:GOT 
0 7020 ELSE GOTO 7850 

[13445] 

7040 CLS#1:LOCATE#!,2,5:INPUTll,"Vorhanden 
e Icons laden [J/N]:",ant$ 

[2600] 

7050 IF UPPERS{ant$)<>"J" THEN 7140 

[2017] 

7060 1PAGE,38,79,2,24,29500,0:¥INDOW 39,78 
,3,23 

[1863] 

7070 CAT:CLS#1 

[136] 

7080 LOCATE#l,5,4:PRINT|l,"Nur Naaen Exten 
Sion .ICO" 

[4948] 

7090 LOCATEll,5,6:INPUT#1,"Filename :",nS: 
n$=n$+".ico” 

[2550] 

7100 IF n$="" THEN 7850 

[638] 

7110 CALL S9B78,t9FFC,tn$:CLS:lflag=-l 

[2406] 

7120 IF PEEK{&9BC3) 0255 THEN LOCATE#l,5,6 
:PRINT#1,CHRS(7);"File nicht vorhanden 
b*0:GOSÜB 8020;GOTO 7850 

[6889] 

7130 sflag=-l:icanz=2:GOTO 7670 

[1733] 

7140 PRINT CHRS(23);CHRS{l)j 

[1854] 

7150 IPAGE,15,64,6,21,29100.0 

[1466] 

7160 ORIGIN 214,190,136,288,94,286:CLG 

[1460] 

7170 GOSUB 7320:GOSUB 7330 

[1178] 

7180 IF INKEY{1)<129 AND INKEY(1)>-1 THEN 
GOSUB 7320:xi=xi+4:xik=xik+l:GOSUB 7430:GO 
SUB 7320 

[3768] 

7190 IF INKSY(8)<129 AND INKEY(8)>-1 THEN 
GOSUB 7320:xi=xi-4:xik=xik-l:GOSÜB 7430:GO 
SUB 7320 

[5780] 

7200 IF INKEY(0)<129 AND INKEY(0)>-1 THEN 
GOSUB 7330:yi=yi+8:yik=yik+2:GOSUB 7430:GO 
SUB 7330 

[5011] 

7210 IF INKBY(2)<129 AND IMKEY(2)>-1 THEN 
GOSUB 7330:yi=yi'8:yik=yik-2:COSUB 7430:GO 
SUB 7330 

[3904] 

7220 IF INKEY(1)=128 THEN cl»0:GOSUfi 7340 

[890] 

7230 IF INKEY(8)=128 THEN cl=0:G0SÜB 7340 

[2401] 

7240 IF INKEY(0)=128 THEN cl=0:GOSUB 7340 

[1494] 

7250 IF INKEY(2)=128 THEN cl=0:GOSÜB 7340 

[2028] 

7260 IF INKEY{1)=32 THEN cl=l:GOSUB 7340 

[2057] 

7270 IF INKEY(8)=32 THEN cl=l:GOSUB 7340 

[1093] 

7280 IF INKEY(0)=32 THEN cl=l:GOSUB 7340 

[1597] 

7290 IF INKEY(2)=32 THEN cl=l:GOSUB 7340 

[627] 

7300 IF INKEY(18)=0 THEN 7480 

[439] 

7310 bS=INKEYS:IF bS<>"” THEN 7180 ELSE CA 
LL &BB06:GOTO 7180 

[3712] 

7320 MOVE xi,-94:DRAW xi,96,l:MOVE xi+1,-9 
4:DRAW xi+1,96,1:RETURN 

[2935] 

7330 MOVE -80,yi:DRAW 84,yi,l:RETURN 

[3138] 

7340 PRINT CHR$(23};CHR$(0); 

[2098] 

7350 MOVE xi+2,yi+2:DRAW xi+5,yi+2,cl 

[769] 

7360 MOVE xi+2,yi+4:DRAW xi+5,yi+4,cl 

[673] 

7370 MOVE xi+2,yi+6:DRAW xi+5,yi+6,cl 

[2853] 

7380 MOVE xi+2,yi+8:DRAW xi+5,yi+8,cl 

[1508] 

7390 ORIGIN 468,120,448,486,142,94 

[1232] 

7400 PLOT xik,yik,cl 

[1633] 

7410 ORIGIN 214,190,136,288,94.286 

[1376] 

7420 PRINT CHRS(23);CHR$(1);rRETURN 

[2490] 

7430 IF xi<-80 THEN xi=76:xik=19 

[2137] 

7440 IF xi>76 THEN xi=-80:xik=-20 

[1999] 

7450 IF yi<-96 THEN yi=88:yik=22 

[2043] 

7460 IF yi>88 THEN yi=-96:yik=-24 

[2545] 

7470 RETURN 
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5000 ***** FENSTER NORMAL SPEICHERN **** 

[1576] 

5010 ’ 

[117] 

5020 GOSUB 8030 

[826] 

5030 CLStl:VINDOW 4,30,10,11 

[1148] 

5040 IF Mflag=0 THEN LOCATE#!,7,5:PRINTtl, 
"Kein Code vorhanden !":GOSUB 8020:RETURN 

[4511] 

5050 LOCATE#!,4,2:PRIMT#1,"Sie haben 2 Mo 
eglichkeiten" 

[3714] 

5060 LOCATE#!,4,3:PRINT#1,"den PAGE - Code 
zu sichern;” 

[3376] 

5070 LOCATE#!,2,5:PRINT#1,"1. Editorcode : 
Extension .PAG" 

[5077] 

5080 LOCATE#l,2,6:PRINT#l,"2. Normalcode : 
Extension -PEX” 

[4726] 

5090 LOCATE#!,4,8:INPUT#l,"Filenaffie : ” 

,fS 

[1626] 

5100 IF fS="" THEN RETURN 

[984] 

5110 IF INSTR(l,UPPERS{f$),"PAG">=0 AND IN 
STR{l,UPPER${f$),"PEX")=0 THEN LOCATE#!,18 
,8:PRINT#1,CHRS(24);CHRS(7);"Extension ??? 
";CHR$(24)r:GOSUB 8020:GOTO 5030 

[9201] 

5120 IF INSTR(l,ÜPPERS(fS),"PÄG")<>0 THEN 
POKE 34998,b:POKE 34999,h:CALL &9B91,4002, 
34998,efS:GOSUB 8020:GOTO 5140 

[7197] 

5130 CALL 39300:CALL &9B91,{PEEK(t99D4)+PE 
EK(it99D5)*256)-30000,30000,ifS:GOSUB 8020 

[4752] 

5140 CALL &6C92;RETURN 

[1310] 

5150 ' 

[117] 

5500 ■** SPEICHERN + CODEKOMPRIMIERUNG * 

[2888] 

5510 • 

[117] 

5520 GOTO 5580 

[351] 

5530 POKE 34000,255:POKE 34001,255 

[1076] 

5540 CLS#l:GOSÜB 8030:WINDOW 8,30,10,11 

[1422] 

5550 IF wflag=0 THEN LOCATE#!,7,5:PRINT#1, 
"Kein Code vorhanden !":GOSUB 8020:RETURN 

[4511] 

5560 GOSUB 6000 

[907] 

5570 RETURN 

[555] 

5580 GOSUB 5540:CLS#1:IF wflag=0 THEN RETU 
RN 

[2345] 

5590 LOCATE#!,7,5:INPÜT#1,"Filename ; ",n$ 

[2487] 

5600 IF nS="" THEN RETURN 

[999] 

5610 CALL &9B91,PEEK(&99D6)+PBEK{&99D7)*25 
6,25000,in$ 

[2362] 

5620 CALL &BC92:GOSUB 8020:R£TURN 

[1970] 

5630 ' 

[117] 

6000 '*** COMPRIMIERUNG **** 

[946] 

6010 ’ 

[117] 

6020 CALL 39300:RETURN 

[1256] 

6030 ' 

[117] 

€500 '******* STATISTIK ******** 

[1315] 

6510 ’ 

[117] 

6520 CLS#1 

[373] 

6530 IF wflag=0 THEN LOCATE#!,7,5:PRINT#1, 
"Kein Code vorhanden !":GOSUB 8020:RETURN 

[4511] 

6540 GOSUB 8030:GOSUB 6000 

[1465] 

6550 timl=TIKE:IPAGE,l,r,o,u,30000,0:timl= 
TIME-timl 

[4369] 

6560 tim2=TIME:IPAGE,l,r,o,u,25000,0:tim2= 
TIME-tim2 

[2711] 

6570 IPAGE.1,35,2,16,27000,0 

[1086] 

6580 CLS#1 

[373] 

6590 LOCATEil,5,2:PRINT#l,"Ausfuehrungszei 

[4940] 

6600 LOCATE#!,5,4:PRINT#1,"Normalcode : 
:PRINT#1, USING "#.### s";timl/300 

[4436] 

6610 LOCATE#!,5,5:PRINT#1,"Optimiert : 
:PRINT#1, USING "#.### s";tim2/300 

[4771] 

6620 LOCATE#!,5,7;PRINT#1,"Speicherbedarf 

[3702] 

6630 LOCATEll,5,9:PRINT#1,"Normalcode : 
(PEEK(&99D4)+PEEK(&99D5)*256)-30000;" Byte 
s" 

Listing Page 
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7480 

DATA 50488,52536,54584,56632,58680,60 

[2306] 

728,62776,64824 


7490 

z=0:RESTORE 7480 

[1118] 

7500 

FOR i=0 TO 160 STEP 80 

[865] 

7510 

FOR j=0 TO 4 

[692] 

7520 

FOR k=l TO 8 

[1110] 

7530 

READ adress 

[614] 

7540 

ico(z)=PEEK{adress+i+j) 

[1386] 

7550 

z=z+l 

[702] 

7560 

NEXT 

[350] 

7570 

RESTORE 7480 

[815] 

7580 

NEXT 

[350] 

7590 

NEXT 

[350] 

7600 

IF icanz=0 THEN adr=40964 

[1673] 

7610 

IF icanz»! THEN adr=42492 

[855] 

7620 

IF icanz=2 THEN adr*42620 

[1104] 

7630 

FOR z»0 TO 119 

[1036] 

7640 

POKE adr,ico(z) 

[100] 

7650 

adr=adr+l 

[392] 

7660 

NEXT 

[350] 

7670 

ic(0)=33:ic(l)=128:ic(2)=144 

[1159] 

7680 

FOR li=0 TO 2 

[311] 

7690 

a$(li)=”":in=0 

[663] 

7700 

FOR n=ic(li) TO ic(li)+14 

[2217] 

7710 

IF m=5 OR m=10 THEN a$(li)=a${li)+C 

[4418] 

HRS(4)+STRIHG$(5,CHR$(2)) 


7720 

aS(li)=aS(li)+CHRS(n);m=m+l 

[1366] 

7730 

NEXT 

[350] 

7740 

KEY 129+li,a$(li)+” ■’+STRINGS{2,CHR${ 

[2918] 

3)) 



7750 

NEXT 

[350] 

7760 

icanz=icanz+l:!PAGE,1,35,2,13,27000,0 

[1778] 

:CLS#1 


7770 

KEY DEF 13,0,49.129:KEY DEF 14,0,50,1 

[1475] 

30:KEY DBF 5,0,51,131 


7780 

IF icanz<3 THEN LOCATEIl,2.5:PRINTll, 

[10364] 

3-ican2;" Icondefinitionen frei”:LOCÄTE#l, 
3,7:INPUTil,"Noch ein Icon [j/n] :*',ant$:I 
F UPPERS(ant$)="J" THEN 7140 


7790 

CLSntIF lflag=-l THEN 7850 

[953] 

7800 

LOCATEll,7.3:PRINT#1."Icons speichern 

[3784] 

7810 

LOCATE#l,4.5;PRINTfl,"Nur Namen Exten 

[2731] 

sion 

.ICO l" 


7820 

LOCATE#!,4,7:INPUT#1."Filename :",fS 

[2518] 

7830 

IF fS="" THEN 7850 

[1039] 

7840 

CALL 69B91,4708,49FFC.«fS 

[985] 

7850 

IPAGE,1,80,3,25,39100,0 

[1279] 

7860 

IPAGE,1,80,1.2,27300,0 

[1390] 

7870 

IF wflag THEN IPAGE,l,r,o,u,30000,0 

[1861] 

7880 

RETURN 

[555] 

7890 

* 

[117] 

8000 

'***** ZEITSCHLEIFE / SOUND ****** 

[1585] 

8010 

' 

[117] 

8020 

FOR za=l TO 2500:NEXT:RETURN 

[3406] 

8030 

SOUND 1,2000.3,12,,.ItRETURN 

[2378] 

8040 

* 

[117] 

8500 

EFFEKTE ****** 

[1205] 

8510 

' 

[117] 

8520 

FOR n=40 TO 0 STEP -1 

[1403] 

8530 

OUT 4BCOO,1:OUT 4BD00,n 

[841] 

8540 

CALL 4BD19 

[352] 

8550 

NEXT:RETURN 

[940] 

8560 

FOR n=0 TO 40 

[584] 

8570 

OUT 4BCOO,1:OUT 4BD00,n 

[841] 

8580 

CALL 4BD19 

[352] 

8590 

NEXT:RETURN 

[940] 

8600 

' 

[117] 

9000 

'***** PROGRAMMENDE ‘»** 

[1494] 

9010 

* 

[117] 

9020 

CALL 4BB00 

[399] 

9030 

GOSUB 8520:MODE 2:OUT 4BCOO,1:OUT 4BD 

[3005] 

00,40 

Llsting Page 



BASIC 

COMPILER 

Superschneller Real-BASIC-Compiler 
vifi90uK für alle CPCs und JOYCE 

- Professionelles Komplettsystem mit Editor, Compiler und 
Runtimesystem 

- Datentypen Real (7-stellig, E+-38), Integer (-32768..+32767), Cardinal (0..65535), 
Byte {0„255) und String (Länge 0..255) 

- Alle Standardbelehle/Funktionen (z.B. READ/DATA, FOR/NEXT, DIR und SIN(x), 
MID$, RND) inkl.Fehlerbehandlung (I) und <ESC>/<STOP>-Untefdfückung 

- n-dimensionale Arrays 

- Beliebig lange Variablennamen möglich 

- Strukturierte Programmierung mit REPEAT...IJNTIL, WHILE,„WEND, IF...ELSE 


IF. END IF, D0..END DO, L00P,.END LOOP etc, 

- Labels statt Zeilennummern, z.B GOTO menu statt GOTO 3760 

- Extrem schnell: etwa 1B00 - 1900 Realmult's, 6500 - 7500 Cardinalmult's 330'000 
GOTO's; allgemein etwa Faktor 5 -1000 

- Sequentielle und Randomdateien (Random nicht CPC 464 CAS) 

- Direkte Grafikunterstützung (auch auf JOYCE!) 

- Spezialbefehle. wie z-b. freien Speicher auf Disk ermitteln 

- Einbindung von Maschinenroutinen leicht möglich 

- Leistungstarker und schneller Editor 

- Sehr große Programme (über 2200 Zeilen auf JOYCE/6128, über 600 auf 664/464 
Disk, auf 464 CAS etwas weniger) möglich durch Auslagerung des Editors und 
Compilers auf Disk während des Kompilierens und durch Kompilabon auf Disk 

- Geeignet für kommerzielle Programmierung 

- Genau auf den jeweiligen Rechner abgestimmt 

- Demoprogramme werden mitgeliefert (nicht für CPC 464 CAS) 

- Auf JOYCE auch Mausunterstützung (Reisware/ISS Maus) 
unverbind. Preisempf.: CPC>Version 99,- DM 

JOYCE-Versior> 139,- DM 

BIALKE - BERENDSEN - REIMANN 

Software 

Beimoorweg 2 ■ D-2070 Ahrensburg 
® 041 02/439 40 



Die bessere Alternative: 



• Bis zu 4 Lai4wert(e: zwei 5.25" (2 > 60 Tracks) und zwei 3'' (Schneider) 

• Alle 3 AMSDOS-Formate bei den 3'''Laufwarken und 3 Formate bei 2 * 60- 
Tracks-L^ufwedcan (System: 704 K, Data-Onty: 716K und vonea: 704K) 

• Ausgereiftes und leistunssfählges Dlsketien-Betriebs^stem (ODOS) 

• DDCS schreibt und liest bis zu dreimal schneller als vergleichbare Systeme 

• "Kooperatives" System; kompatibel zu vielen Produkten wie Z.B.: 

- vortex- und dk’tronics-Spelchererweiterungen 

- Arrrar-ROMs wie Maxam, Proteid, LHopla... 

- EPROM-Karten,BPflOM-Programmer,... 

• Die Herdware besteht aus hochwertigen Laufwerken (TEAC/BASP), 
stärsicherem Netzteil, eingebaut In stabilem Metall-Gehäuse 

• Inklusive umfangreichm Handbuch + zwei Di^eCten 

AnschluOfertige 5.2S'’-Elnzelstationen DSD mit Controller, DDOS, 
System-Diskette, CP/M-lnstall-Diskette und Handbuch 819.- DM 
Doppelstatitm DDD 1119.-DM 

Controller mH ODOS, Disketten und H wdbuch 285.- DM 

Systemkabel für zwei 2* BO-Tracks-Shugartbus-Laufwerke 49.- DM 
Systemkabel für zwei Schneider'3"-Laufwerke 89.- DM 

Handbuch vorab (wird beim Kauf angerechnet) 20.-DM 

Im Uelerumfang Ist kein CP/M enthalten. Es wrd jedoch ein Programm zum Überträgen und 
Anpassen des 3‘-CP/M mitgeliefert. Zum Überspielen sind ein S'-Laufwerk und däs AnscMuB- 
kabel nAUg. 


DOBBERTin.» 

Indu^Ie^ElekD-onik 

BrahmsstraBe 9, 6835 Brühl, Telefon 06202/71417 
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Memory 

Full? 


Sie haben einen CPC erworben, und 
Sie haben sich an vielen Abenden 
(und Nächten?) gequält, erste (richti¬ 
ge) Ergebnisse auf den Monitor zu 
bringen. Inzwischen haben Sie einige 
Erfahrungen gemacht und die ersten 
Anwenderprogramme installiert (oder 
gar selbst geschrieben?). Bei zuneh¬ 
mendem Umfang Ihrer Adressenliste 
stellen Sie fest, daß der Hauptspei¬ 
cher Ihres CPC nicht mehr aus¬ 
reicht, zudem wird der Floppybe- 
trieb zu langsam für Ihre Ansprü¬ 
che. Was tun? Abhilfe verspricht 
eine Speichererweiterung... 

Dieser Beitrag ist in einen theoreti¬ 
schen und einen praktischen Teil ge¬ 
gliedert. Der Erste soll Ihnen wissens¬ 
werte Informationen zu Speichererwei¬ 
terungen allgemein vermitteln; Profis 
können diesen Teil überspringen. Der 
zweite Teil stellt die beiden verbreitet¬ 
sten kommerziellen Speichererweite¬ 
rungssysteme der Firmen dk’tronics 
und Vortex vor und soll dem kaufwilli- 
gen Leser als Entscheidungshilfe 
dienen. 


Theorie... 


- Was ist eine Speichererweiterung? 
Die CPCs werden mit einer Hauptspei¬ 
cherkapazität von 64kB ausgeliefert, 
d.h. sie können auf jeweils über 65000 
verschiedene Speichcrstcllen (Buchsta¬ 
ben, Zahlen usw.) zugreifen. Der 6128 
ist zudem mit einem zweiten Bereich 
(einer »Bank«) von 64 KB ausgerüstet, 
auf die der Programmierer mittels des 
mitgelieferten Programms »BANK- 


MAN.BAS« zugreifen kann. Eine 
Speichererweiterung stellt nun demje¬ 
nigen, dessen Daten nicht mehr in den 
Original-Hauptspeicher passen, weite¬ 
re kilo-Bytes zur Verfügung, die dem 
Rechner über eine Steckverbindung 
(also hardwareseitig) beigegeben wer¬ 
den. Aufgrund der internen Organisa¬ 
tion der CPCs ist eine Unterteilung in 
Blöcke von 16 kB sinnvoll; Hersteller 
von Speichererweiterungen bieten z.B. 
vier, acht, 16 oder 32 ( = 64, 128, 256 
oder512kB) solcher Blocks, auf einem 
Steckmodul zusammengefaßt, an. 

- Wie funktioniert’s? 

Das »Gehirn« der CPCs, die Z80 CPU, 
kann 64 kB auf einmal verwalten. Nun 
stehen Ihnen ja in der Grundversion 
nicht die ganzen 64 kB zur Verfügung; 
der Rechner »zwackt« sich einen gro¬ 
ßen Teil ab. Die fest eingebaute Spra¬ 
che BASIC und das Betriebssystem, 
ohne welches Ihr CPC gar nicht lebens¬ 
fähig wäre, belegen einen guten Teil 
des Hauptspeichers, so daß Ihnen je 
nach CPC noch ca. 40 kB zur Verfü¬ 
gung bleiben. Hätten die Väter des 
Recliners dies für ausreichend befun¬ 
den, wäre hier einfach Schluß. Die 
wirklich ausgezeichnete »Architektur« 
der CPCs sieht jedoch eine Lösung die¬ 
ses Problems vor, die da auf Neu¬ 
deutsch lautet: Bankswitching. Das 
heißt, daß eine spezielle Hardware, die 
nur zur Verwaltung von Erweiteaings- 
speicher zuständig ist, dem Prozessor 
jeweils eine Bank von 64 kB zur Bear¬ 
beitung vorlegt, wobei die Daten, die 
bei der letzten Bank gerade bearbeitet 
wurden, in einem Zwischenspeicher 
abgelegt werden, um nach Rückkehr 
normal Weiterarbeiten zu können. Die¬ 


ser Vorgang ist vergleichbar mit dem 
Lesen eines Fachbuches, wo das Auge 
ja auch nur auf eine Seite zugreift. 
Wünscht das Gehirn zu einer bestimm¬ 
ten Passage Zusatzinformationen, so 
muß der Hand das Umblättem auf eine 
andere Seite befohlen werden. Das Ge¬ 
hirn nimmt nun über das Auge die neue 
Information auf und verbindet diese 
nach Zurückblättem mit der Alten, wo¬ 
bei der Inhalt der alten Seite (weil zwi¬ 
schengespeichert) noch präsent ist. Der 
Nachteil dieses Systems: BASIC benö¬ 
tigt zusammenhängenden Speicher. 
Ein BASlCprogramm mit z.B. 100 kB 
Länge müßte auf zwei Banks verteilt 
werden. Für den Prozessor ist jedoch 
nur der aktuelle Teil des Programms 
sichtbar; das Retten von Variablen und 
anschließende Springen in eine andere 
Bank ist im Locomotive BASIC nicht 
vorgesehen. Das eigentliche Gedächt¬ 
nis eines Computerspeichers besteht 
aus RAM (Random Access Memory = 
Speicher mit wahlfreiem Zugriff)-Bau- 
steinen. Der Hardwareaufbau soll hier 
nicht erklärt werden; Interessierten 
empfehle ich die Lektüre des Artikels 
Schneiderware #8 aus Heft 4/87. 

- wie wird eine Speichererweiterung 
installiert? 

Wie oben kurz erwähnt, muß dem CPC 
RAM über Steckverbindungen hard¬ 
waremäßig zur Verfügung gestellt wer¬ 
den. Dies geschieht entweder über den 
Expansionsport (beim 464 als Floppy- 
port bezeichnet) oder durch direkten 
Einbau in den Rechner. Erstere Metho¬ 
de hat den Vorteil, daß Sie keine Ein¬ 
griffe in den Rechner machen müssen, 
die Garantie ist demnach ungefährdet. 
Nachteil: bei vielen zusätzlich ange- 
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brachten Erweiterungen wird der ex¬ 
terne Aufbau sehr instabil; die Steck¬ 
verbindungen werden mechanisch be¬ 
lastet, was eigentlich nicht geschehen 
sollte. Der Einbau in den Rechner wie¬ 
derum ist von Vorteil, weil die Erwei¬ 
terung vor versehentlicher mechani¬ 
scher Belastung und sonstigen schädli¬ 
chen Einflüssen wie z.B. Staub weitest¬ 
gehend geschützt ist. Nachteil hier: der 
Einbau ist für den Laien nicht unpro¬ 
blematisch, weil Bausteine aus ihren 
Fassungen gehebelt werden müssen, 
wobei Beschädigungen zumeist den Er¬ 
satz des betreffenden Bauteils erfor¬ 
dern. Das hauptsächliche Einsatzgebiet 
einer Speichererweiterung sollte für 
eine Entscheidung zwischen beiden Sy¬ 
stemen maßgeblich sein. Zur Installa¬ 
tion einer Speichererweiterung gehört 
weiterhin eine Betriebssoftware, die 
dafür sorgt, daß der Rechner Art und 
Umfang der Erweiterung erkennt. Un¬ 
ter dem Betriebssystem AMSDOS ste¬ 
hen bei den Erweiterungen der bekann¬ 
ten Hersteller neue BASIC-Befehle zur 
Verfügung, die komfortables Arbeiten 
mit den neu hinzugewonnen kiloBytes 
erlauben; unter CP/M wird ein sog. 
Patch benutzt, wobei es sich um ein 
Programm handelt, welches die jewei¬ 
lige Version (CP/M 2.2 oder CP/M 
3.0) derart abändert, daß die Speicher¬ 
erweiterung beim Booten (Laden) so¬ 
fort erkannt wird und angesprochen 
werden kann. Umfang und Brauchbar¬ 
keit dieser mitgelieferten Software für 
Ihre Zwecke sollten ein entscheidendes 
Kriterium beim Kauf einer Speicherer¬ 
weiterung sein. 

- Wo kann eine Speichererweite¬ 
rung sinnvoll eingesetzt werden? 

Das Haupteinsatzgebiet einer Speicher¬ 
erweiterung liegt in der Aufnahme ei¬ 
nes umfangreichen Programms oder 
dessen Daten. Beispiel: Sie können das 
Textverarbeitungsprogramm Wordstar 
in eine als RAM-Disk installierte Spei¬ 
chererweiterung laden und als Daten¬ 
laufwerk die Floppy Station A: anwäh¬ 
len. Dies hat den Vorteil, daß Wordstar 
seine Programmteile in nie gekannter 
Geschwindigkeit nachlädt, da ja hier¬ 
bei die Diskettenzugriffe entfallen. Die 
geschriebenen Texte befinden sich si¬ 
cher gegen Stromausfall verwahrt auf 
der Diskette. Ein zweites Beispiel: die 
Datenbankverwaltung dBase wird in 
den Hauptspeicher geladen; sämtliche 
Daten der aktuellen Datei werden in die 
RAM-Disk geladen und dort bearbei¬ 
tet. Zur Information: Eine RAM-Disk 
ist gewissermaßen eine nur aus RAM- 
Bausteinen bestehende »Diskettensta- 


Abb. 1: Die dk’tronics-Module ohne Hülle... 


tion«. Sie kann (je nach Installation als 
Laufwerk B: oder C; angesprochen 
werden und wird wie ein »normales« 
Diskettenlaufwerk verwaltet. So blei¬ 
ben z.B. die Befehle CAT, ERA, REN 
usw. voll erhalten. Vorteil: durch feh¬ 
lende Mechanik steigt die Bearbei¬ 
tungsgeschwindigkeit teilweise auf das 
50-fache gegenüber einer Floppysta- 
tion. Nachteil: bei Stromausfall oder 
Abschalten des Rechners sind sämtli¬ 
che gespeicherte Daten unrettbar ver¬ 
loren. Bei den Vortex-Erweiterungen 
kann eine RAM-Disk (ab SP 128) per 
mitgelieferter Software installiert wer¬ 
den; dk’tronics bietet hierzu eine Hard¬ 
ware-Lösung, so daß man sich vor dem 
Kauf einer Speichererweiterung auf die 
später gewünschte Betriebsart cinstel- 
len sollte. Wird die Speichererweite¬ 
rung als solche betrieben, muß der An¬ 
wender mit Hilfe der mitgelieferten 
Software seine persönliche Lösung 
selbst programmieren. Kommerzielle 
Programme unter AMSDOS sind kaum 
auf das Vorhandensein einer Speicher¬ 
erweiterung vorbereitet und eine auto¬ 
matische Erkennung eines Zusatzspei¬ 
chers und dessen Benutzung ist ausge¬ 
schlossen. Das heißt: unter BASIC ste¬ 
hen Ihnen nach wie vor nur 40 kB 
Hauptspeicher zur Verfügung; (Vortex 
stellt allerdings eine Alternative zur 
Verfügung, aber dazu später.) 

Zusammengefaßt sollten Sie wissen: 
eine RAM-Disk kann nach Installation 
automatisch vom Rechner benutzt wer¬ 


den, die pure Speichererweiterung 
muß von Ihnen programmiert werden. 


...und Praxis 


Wie schon erwähnt, werden Ihnen in 
diesem Teil die Speichererweiterungen 
bzw. RAM-Disks von dk’tronics und 
Vortex mit ihren Leistungsdaten vor¬ 
gestellt. Da beide Systeme für be¬ 
stimmte Einsatzgebiete verschieden 
geeignet sind, sollten Sie die gegebe¬ 
nen Informationen speziell für Ihre An¬ 
wendung nutzen und Ihre Entschei¬ 
dung nach Ihren Bedürfnissen aus- 
richten. 

1.) dk’tronics 

Die Erweiterungen des englischen 
Herstellers werden als außen an den 
Expansionsport des Rechners ansteck¬ 
bare Module ausgeliefert, die der Form 
der Rechnerrückwand angepaßt sind 
und dadurch zumindest eine gewisse 
mechanische Stabilität bieten. Diese 
Module schleifen den Expansionsport 
durch, d.h. der Floppybetrieb beim 
464 bzw. die zusätzliche Verwendung 
weiterer Module bei 664/6128 gestaltet 
sich mechanisch problemlos. Für die 
Amphenolbuchse des 6128 gibt es al¬ 
lerdings keine mechanische Entspre¬ 
chung; hier muß ein passender Adapter 
angeschafft werden, der dem ganzen 
Aufbau einen doch recht labilen Aspekt 
beigibt. 


10’87 PC 33 










I —Bericht 




stemdiskette erzeugt wird. Durch Ein¬ 
bindung von SDISC.COM in SE¬ 
TUP.COM kann die Initialisierung der 
RAM-Disk auch im Autostart erfol¬ 
gen. Unter CP/M 3.0 wird mit 
ISETCPMPLUS ein Patch erzeugt, der 
wiederum in das Betriebssystem einge¬ 
bunden werden kann. Da CP/M Plus 
jedoch ohnehin mit einer zweiten Bank 
arbeitet, kann die 64 kB- Silicon Disc 
nicht eingebunden werden, da die ex¬ 
terne Bank dann mit der Internen kolli¬ 
dieren würde. 

Die Speichererweiterung kommt mit 
einem Programm namens BANK auf 
Datenträger, welches zwölf RSX-Be- 
fehle zur Bedienung bereitstellt. Diese 
dienen hauptsächlich dem schnellen 
Datenaustausch zwischen Hauptspei¬ 
cher und externem Speicher, wobei 
dem Austausch kompletter Grafikbild¬ 
schirme zwei Extra-Befehle gewidmet 
sind. Das Programm TPA erstellt unter 
CP/M 2.2 ein File namens INCTPA. 
COM, welches nach Aufruf den Pro¬ 
grammbereich auf 61 kB erweitert. Für 
CP/M Plus sind in der Bedienungsan¬ 
leitung einige Hinweise zur Anpassung 
gegeben, wie die RSXen auch ohne 
vorherigen Aufruf des BANK-Pro- 
gramms zur Verfügung gestellt werden 
können. Jedoch gilt für beide 
CP/M-Versionen: Software zur Aus¬ 
nutzung der Speichererweiterung muß 
selbst erstellt werden; Die Bedienungs¬ 
anleitung der Erweiterungen steht zwar 
auch in deutscher Sprache zur Verfü¬ 
gung; der Kaufmteressierte sollte je¬ 
doch bei der Bestellung eines Moduls 
auf jeden Fall ausdrücklich die deut¬ 
sche Version verlangen, da ansonsten 
mit großer Wahrscheinlichkeit die 
Englische ausgeliefert wird. 

Die Anleitung enthält neben der Be¬ 
schreibung der aktuellen Erweiterung 
noch die Anleitungen für dk’tronics 
Lightpen und Sprachsynthesizer. Ne¬ 
ben Hinweisen för die Anbringung am 
Rechner werden die neu zur Verfügung 
stehenden BASIC-Befehle anhand von 
Beispielen erläutert, auch das Anspre¬ 
chen des RAM per OUT wird erwähnt. 
Deutlich zu kurz gekommen ist jedoch 
der CP/M-Bereich. 

2.) Vortex 

Diese Erweiterung wird als Universal- 
Platine zum Einbau in die CPCs 464 
und 664 geliefert, wobei bei der Kon¬ 
struktion auch die verschiedenen 
464-Versionen, die im Lauf der Zeit 
entstanden, berücksichtigt wurden. 
Der Einbau, obwohl auch für Anfänger 
als problemlos propagiert, muß mit äu¬ 
ßerster Sorgfalt und einigem Finger- 


Abb.2 :... und in voller Montur mit Floppycontoller am CPC 


Die dk’tronics-Erweiterungen werden 

in zwei Varianten geliefert: 

— die Silicon-Disc, die in zwei Modu¬ 
len ausgeliefert wird, nämlich dem 
Speicher selbst und dem Controller. 
Diese RAM-Disk ist für 464 und 
664 mit 64 oder 256 kB, für den 
6128 nur in einer 256 kB-Version 
erhältlich. 

— die Speichererweiterung, die per auf 
Datenträger mitgelieferter Software 
über BASIC-RSX-Befehle ange¬ 
sprochen werden kann. Für 464 und 
664 stehen 64 und 256 kB zur Verfü¬ 
gung, für 6128 wiederum nur die 
256 kBVersion. 

Die Silicon Disc enthält im Controller¬ 


modul die zum Betrieb unter AMSDOS 
und CP/M notwendige Software. Der 
RSX-Befehl ISDISC initialisiert die Er¬ 
weiterung unter AMSDOS als Lauf¬ 
werk B: oder C:, wobei das Vorhan¬ 
densein einer zweiten Floppystation 
selbsttätig erkannt wird. Ein Laufwerk 
muß zum Betrieb der Silicon Disk auf 
jeden Fall vorhanden sein. 


Anschließend kann die Erweiterung 
mit den auch für die mechanischen 
Laufwerke gültigen Befehlen ange¬ 
sprochen werden. Für den Betrieb un¬ 
ter CP/M 2.2 steht das Dienstpro¬ 
gramm ISETCPM zur Verfügung, 
durch welches ein Programm namens 
SDISC.COM auf der Kopie der Sy¬ 


Abh. 3: Die Vortex kommt ohne Gehäuse, aber mit umfangreicher Anleitung... 
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Einzeiheft-Bestellung 

Nachfolgende Ausgaben von Schneider CPC International sowie 
Sonderhefte sind noch vorrätig und können über den DMV Verlag be¬ 
zogen werden. 

Bei einem Bestellwert von mindestens 15,- DM werden keine Porto- 
und Versandgebühren erhoben; bei einem Bestellwert unten 5,- OM 
werden 3,- DM Porto/Verpackung berechnet (Ausland 5,- DM 
Porto/Verpackung) Lieferung nur gegen Vorkasse (V.-Scheck) 

Bestellung Ausgaben (bitte ankreuzen); 
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»Databox Einzelbestellung« 


Ausgabe 

CPC 
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2/66 

□ 14,- DM 

□ 24, - DM 

— 

— 

3/86 

□ 14.- DM 

□ 24,- DM 

— 

— 

4/86 

n 14,- DM 
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□ Ich bitte um Lieferung per Nachnahme 
(nur innerhalb der BRD) 

Bei Nachnahme kommt zum 0 g. Betrag 
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Spitzengefühl geschehen, da hier doch 
dem Innenleben des Rechners massiv 
zu Leibe gerückt wird. Jedoch werden 
diesem Thema im Handbuch sechs Sei¬ 
ten mit Lageskizzen gewidmet, deren 
Ausführlichkeit nichts zu wünschen 
übfig läßt. Die universelle Architektur 
der Karte erlaubt den Ausbau nach Be¬ 
lieben bzw. Finanzlage des Besitzers; 
so sind Konfigurationen von 64 bis 512 
kB problemlos möglich. Ab Speicher¬ 
ausbau 128 kB kann auch ein Teil der 
Speichererweiterung als RAM-Disk 
erklärt werden. Weiterhin kann per 
Software ein 32 kB großer Bereich des 
RAMs als Druckerspooler eingerichtet 
werden, d.h. dieser Bereich wird vom 
Koimnando Print #8 angesprochen 
und nimmt die an den Drucker adres¬ 
sierten Daten auf, um sie dann ohne 
Wartezeit des Computers an den 
Drucker weiterzugeben. Die Software, 
die- der Karte auf EPROM (einem 
nichttlüchtigen Speicherbaustein) bei¬ 
gegeben wird, geht über das Maß der 
schlichten Ansteuersoftware weit hin¬ 
aus. Hier wird ein BOS (Basic Opera¬ 
tion System) geliefert, wobei sich der 
Interessent zwischen den Versionen 
1.0 und 2.1 entscheiden kann, die sich 
in Leistungsumfang und auch Preis 
deutlich unterscheiden. BOS enthält 
eine große Anzahl von komfortablen 
BASIC-Befehlen, die u.a. die relative 
Dateiverwaltung (BOS 2.1) im RAM 
unterstützt. Weiterhin steht eine An¬ 
zahl von Befehlen zur Verfügung 
(IGOSOB, IGOTO), die die Erstellung 
eines BASIC-Programms mit sage und 
schreibe 288 kB Länge über mehrere 
Banks hinweg ermöglichen. Ein fest in¬ 
stallierter Z80-Monitor unterstützt As- 
semblerprogrammierer. Dieses BOS 
unteneilt den zur Verfügung stehenden 
Speicherplatz in ein Programmareal 
von max. 288 kB und ein Datenareal 
von max. 256 kB, wobei letzteres auf 
Wunsch als RAMDisk oder Videobe¬ 
reich deklariert werden kann. Über 50 
Funktionen stehen zur Bedienung und 



Ahb. 4: Vortex-Speichererweiterung bereits eingebaut 


Programmierung der Speichererweite¬ 
rung unter BOS 1.0 zur Verfügung; 
durch die Dateiverwaltung sind es noch 
einige mehr. Die Installation der Er¬ 
weiterung unter CP/M geschieht mit¬ 
tels des mitgelieferten Programms 
PATCH.COM, welches die Program¬ 
me RAMDISK.COM und SPOOL 
.COM erzeugt. Je nach Ausbaustufe 
der Erweiterung stehen nach Einbin¬ 
dung 62 kB CP/M Arbeitsspeicher, 32 
kB Druckerspooler und bis zu 448 kB 
RAM-Disk zur Verfügung. Eine Nut¬ 
zung des externen Speichers als Daten¬ 
bereich ist (sinnvollerweise) nicht vor¬ 
gesehen. Die Bedienungsanleitung ist 
deutschsprachig und im Vortexübli¬ 
chen Ringbuchformat vorhanden. Den 
Themen Einbau der Hardware sowie 
Installation sind ausreichend ausführli¬ 
che Kapitel gewidmet; für die nötigsten 
Abläufe sind Abbildungen integriert. 


Die Preise 


1. dk’tronics 

Speichererweiterungen: 

64kBf. 464/664 109,-DM; 
256 kB f. 464/664 249, - DM; 
256 kB f. 6128 249,-; DM 
Adapter f. 6128 29, — DM 

Silicon Discs: 

256 kB für 464/664 249,- DM 
256 kB für 6128 249,- DM 
Adapter für 6128 29, - DM 


2. Vortex 

SP 256 mit BOS 1.0 298, - DM 
SP 256 mit BOS 2.1 349, - DM 
SP512 mit BOS 1.0 398,- DM 
SP 512 mit BOS 2.1 449,- DM 

(me) 


— W E B — 

Die 20 MB WINCHESTER-EXPANSION-BOXfÜr JOYCE 
— OUICK-DATA WEB — 

Das erste Geschailsprogramm speziell für Festplatterbetriet)für die Probteme des Versandgescbäftes 
- aucbtilrHandelsagentjren - 

• 

NEU ’ Soft- und Hardware * NEU * 


SUPERTYPE 

Schriftarten f.LocoScript 

128,- DM 

LocoMail 

Mail-Marge f. LocoScript 


LocoSpell 

Dictionary f. LocoScript 


QUICK-CALC PLUS 

Fibu 


QUICK-NAME PLUS 

Adressen, Mail-Marge 

159.- DM 

QIJICK-DATA3,0 

Qeschäftssoftware GSX^“ 

220,- DM 

QUICK-DATA WEB 

nur Fesiplatlenbetrieb 

490,- DM 

QUICK-LINE 

Karte i/Adress verwa Itu n g 

178.- DM 

KIT PC8256/TMS 

5t2 KB RAM-Erwelteruno 

99.- DM 

DISK DRIVE 1MB 

Laufwerk für JOYCE 

564,- DM 

LIGHT-PEN 

Electric Studio 


MOUSE 

Electric Studio 


PAGE-MAKER 

Electric Studio 


DIGITISER 

Electric Studio 

p.A. 

weitere Soft- und Harüware in unserer Übersicht 


FORDERN SIE UNSER INFO-ftlATERIAL AN ! 


Fa 

. P. Werder - Nachrichtentechnik 


Bramfelder Ch. 215/2 Hamburg 71 / 040-6411779 



Spielen Sie gern Russisch-Roulett? 


Kaufen Sie Software, von der Sie nicht wissen, ob sie Ihre persönliche Anfor¬ 
derung erfüllt? 

Das Büro für Software-Entwicklung ist ein eingespieltes Team. Programmie¬ 
rer und Kaufleute helfen Ihnen immer dann, wenn es woanders nicht mehr 
weiter geht. Im Notfall auch außerhalb der Geschäftszeit. 

Gleichgültig, ob es sich um Ihre Fakturierung. Fibu, Lagerführung, Werbung 
usw. dreht — Ihre persönliche Software-Lösung zeigt Ihnen das Büro für 
Software-Entwicklung auf der Systems in München (19.-23 Okt.) Halle 1, 
Stand 1B2, direkt am Haupteingang. 

Verlangen Sie Software-Info für JOYCE oder PC vom: 





eWung 


Sonnenstr. 43, 5270 Gummersbach, Tel.; 02261/65434. 
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DAS GRAFIKWUNDER 

FÜR DEN 
PC! 

CGX (Color Graphik Extension) ist eine Turbo Pascal-Toolbox der 
Superlative: Eine Sammlung von 100 leistungsfähigen Prozedu¬ 
ren, mit denen sowohl der Heimprogammlerer als auch der Profi 
grafisch beeindruckende und benutzerfreundliche Turbo Pascal- 
Programme schreiben kann, ohne auf Spezialkenntnisse oder zeit¬ 
raubende Assembierprogrammlerung angewiesen zu sein. 

Mit CGX können aus ein und dem gleichen Quelltext lauffähige 
Programme für 3 hochauflösende PC-Grafikmodi erzeugt werden: 



- Schneider PC 1512 Farbgrafik 
(640x200 bei 16 Farben) 

- EGA Farbgrafik (z.B. Schneider PC 1640, Atari) 

(640x200 bei 16 Farben) 

- CGA Hires-Grafik 
(640x200 bei 2 Farben) 

Damit ist es ohne weiteres möglich, auf dem Schneider PC 1512 
Software für EGA-Rechner zu entwickeln - und umgekehrt! 

Die CGX-Prozeduren arbeiten sehr schnell und effektiv, da sie un¬ 
ter Verwendung modernster Grafikalgorithmen zu einem großen 
Teil in kompakten 8086 Inline-Assemblercode realisiert wurden. Sie 
sind in mehreren Bibliotheken zusammengefaßt, die als Include- 
Files problemlos in eigenen Programmen verwendet werden 
können: 

Die KERNEL -Bibliothek steift den CGX-Betriebssystem-Kern dar 
und enthält u. a. einen neuen Bildschirmtreiber, der verschiedene 
Schrifttypen und-großen zur Verfügung stellt, weiterhin Unterstrei¬ 
chen. Fettschrift, Exponenten und Indizes, sowie die Textausgabe 
auf Grafikkoordinaten, Transparent- und XOR-Modus und vieles 
mehr. 

DieGRAPHIK-Bibliothek enthält zahlreiche Grafikprozeduren, an¬ 
gefangen bei »Plot« und »Draw« bis hin zu Ellipsenbögen und 
Rechtecken mit runden Ecken. Weiterhin finden Sie hier eine gan¬ 
ze Palette von Füllprozeduren für Muster und Farben sowie Proze¬ 
duren zum Verzerren bzw. Biegen von Bildschirmbereichen. 

DieMOUSE "Bibliothek stellt die Schnittstelle zum Maustreiber dar 
und erlaubt neben der Abfrage und Kontrolle der Mauspostition 
und -tasten auf komfortable Weise die Gestaltung eigener Maus¬ 
zeiger. Zusätzlich gibt sie Hilfen zur »Event«-Verarbeitung: »Maus¬ 
ereignisse« können definiert und abgefragt werden. 

DieHARDCOPY -Bibliothek ermöglicht den Ausdruck beliebiger 
Bildschirmausschnitte in frei wählbarem Format, wobei die 16 Far¬ 
ben durch verschiedene Muster dargestellt werden. 

Die SCREEN -Bibliothek enthält Prozeduren mit denen Bild¬ 
schirmbereiche im Speicher oder auf Diskette abgelegt und bei Be¬ 
darf wieder geladen werden. 


Neue Gestaltungs¬ 
möglichkeiten 
- auch hier 
überzeugt CGX 


Autor: M. Uphoff 




DM 


inkl. MwSt-, zuzgl. 3,- DM Porto und Verpackung. 


CGX für MS-DOS PC 

Farbenvielfalt durch CGX - mehr als 100 Farben am PCI 



Software 


Die WINDOW 'Bibliothek steilt ein System zur Verwaltung von 
Text-und Grafikfenstern zur Verfügung - die Grundlage für eine 
moderne Menuetechnik. 

Weiterhin umfaßt CGX neben Anwendungsbeispielen und einem 
ausführlichen Handbuch kommentierte Quellprogramme für einen 
Füllmuster- und Zeichensatzeditor - eine komfortable Program- 
mierhiife mit »PullDown«-Menues und Mausbedienung. 


DMV Daten & Medien Verlagsgesellschaft mbH 
Postfach 250 

Fuldaer Straße 6 ■ 3440 Eschwege 

BITTE BENUTZEN SIE DIE BESTELLKARTE 
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München 
im Blickpunkt 


Vom 19. — 23. Oktober richten sich 
die Blicke der Computeranwender in 
südliche Gefilde. München ist Schau¬ 
platz der Systems’87,erwartet werden 
Besucher aus der ganzen Welt. 

Information total — das verspricht die 
Anwendermesse SYSTEMS in jedem 
Fall. Den Besucher erwarten insgesamt 
18 Hallen, in denen zahlreiche nationa¬ 
le und internationale Aussteller ihre be¬ 
währten, aber auch neue Produkte rund 
um den PC zeigen. Von der Bedeutung 
her nimmt die diesjährige, übrigens alle 
2 Jahre stattfindende Ausstellung einen 
hohen Stellenwert in der Fachbranche 
ein.Viele Anbieter nutzen die Gelegen¬ 
heit, neue Trends aufzuzeigen und neue 
Produkte erstmals der Öffentlichkeit vor¬ 
zustellen. 

Die Palette der Ankündigungen reicht 
von der neuen Textverarbeitung über 
neue Drucker bis hin zum neuen AT- 
Computer. 

Viele, vor der Markteinführung stehende 
Produkte können zudem auch vom Fach¬ 


handel begutachtet werden, das Weih¬ 
nachtsgeschäft steht vor der Tür und letz¬ 
te Dispositionen sind möglich. 

Als eifriger Zeitschriftenleser haben Sie 
die, zumindest bisher einmalige Gele¬ 
genheit, alle namhaften Verlage konzen¬ 
triert in Halle 21 aufzusuchen. Der 
DMV-Verlag wird mit den Redaktionen 
Schneider,PASCAL und DOS Interna¬ 
tional vertreten sein, unsere Redakteure 
stehen Ihnen gerne Rede und Antwort. 

Informieren Sie sich an unserer Redak¬ 
tionstheke in gemütlicher Atmosphäre, 
Sie finden uns in Halle 21, Stand Nr. 
B13. 

Leider - und da ist München wohl auch 
einmalig — liegt bei dieser Computer¬ 
messe kein Wochenende dazwischen, so 
daß Sie Ihren Besuchstermin rechtzeitig 
vorplanen sollten. 

Die Redaktion der Schneider Internatio¬ 
nal freut sich auf Ihren hoffentlich zahl¬ 
reichen Besuch und freut sich auf ein 
Treffen an unserem Messestand. 

(SR) 


TEXTVERARBEITUNG 

TABELLENKALKULATION 
LOHNBUCHHALTUNG-STATISTIK ... 

Überarbeitet? Gönnen Sie sich eine Urlaubs- 
reise in das Land der Fraktale, genießen Sie 
die phantastischen Farb-Fähigkeiten Ihres PC. 



FRAKTAL GENERATOR 

- eine neue Dimension für die Freunde hak- 
taler Grafiken; Über 100 (!) Farben stellt Ih¬ 
nen dieses Programm bei einer Auflösung von 
640 x 200 Punkten zur Verfügung. Und das be¬ 
rühmte »Apfelmännchen« braucht dank ausge¬ 
feilter Algorithmen nur noch ca. 3 Minuten für 
seine Entstehung - keine stundenlangen 
Wartezeiten hindern Sie mehr daran eine mär - 
chen hafte Welt voller Farben und Formen zu 
entdecken. Und dazu der Bedienungskomfort; 

Bedienung per Maus und Pulldown-Menues . 
Hardcopy auf Knopfdruck 
Speichern von Bildern auf Diskette 
Umschalten zwischen verschiedenen Bildern 
Nachträgliches Ändern der Farben 
Vergrößerte Ausschnitte durch Auswahlrahmen 
Rechentiefe bis 9999 

FRAKTAL GENERATOR für 

- Schneider PC 1512 / PC 1640 

- Atari PC 

- PC’s mit EGA-Karte & Microsoft- 

kompatibler Maus. 



FRAKTAL GENERATOR 
- EIN CGX-PROGRAMM VON DMV 


nur 


49 ,- 


Inkl MwSI zuigl ftxlo/VBrpacliung 


DMV Daten & Medien Verlagsgesellschaft mbH 
Postfach 250 

Fuldaer Straße 6 • 3440 Eschwege 







1—Programm 



Ein Programm, das Ihnen aus der Spielhalle bekannt sein 
dürfte. Ein Reaktionsspiel mit ansprechender Animation 
und GraHk. 

Spielgeschichte 

Das Programm ist in zwei Spielsequenzen eingeteilt, wobei die 
erste noch in drei Level unterteilt ist. In der ersten Spielsequenz 
geht es um folgendes: 

Die Wölfe haben beschlossen das Haus von Porky mit einem 
großen Stein zu zerstören. (Damit sie ihn besser fressen kön¬ 
nen) . Da dieses aber am Meer liegt und die Wölfe nicht schwim¬ 
men können, versuchen sie mit Ballons auf den großen Felsen 
zu schweben, um dort den Stein herunlerzustoßen 

Porky (das sind Sie) hat aber Wind von der Sache bekommen 
und hat sich mit Pfeil und Bogen, einem Seil und einem Käfig 
bewaffnet und sich in der Nähe seines Hauses versteckt. 

Von dort aus versucht er die Ballons der Wölfe zu treffen. Auf 
dem Bildschirm sieht das folgendermaßen aus: 

Am linken Bildschirmrand sehen Sie den Felsen, mit dem Stein 
und dem Haus darunter. Am rechten Rand sehen Sie Porky mit 
einem Käfig immer auf und ab fahren. Ihre Aufgabe ist es nun, 
mit Hüfe von Pfeilen die Ballons der Wölfe, die über dem Was¬ 
ser erscheinen, zu treffen. 

Einen Pfeil, können Sie mit Druck auf COPY losschießen. In 
der ersten Bildschirmzeile sehen Sie folgende Buchstaben: 

W: — steht für Anzahl der Wölfe die oben angekommen sind 

T: — steht für Anzahl der getroffenen Wölfe 

L: — gibt den Level an, je nach Level müssen weniger Wölfe 

oben angekommen sein, um den Stein herunterzustoßen. 

In Level 1 — 5 Wölfe, 
in Level 2 — 4 Wölfe und 
in Level 3 — 3 Wölfe 

Bei fünf Treffern gelangt man einen Level höher. 

Haben Sie diese drei Level gemeistert, kommen Sie in die zwei¬ 
te Spielsequenz. Dort sitzt Porky auf dem Dach des Wolfs-Hau¬ 
ses, wo Ihre drei Kinder gefängengehalten werden. 

Porky versucht jetzt mit einer Angel ihre Kinder durch den Ka¬ 
min zu hieven, bevor der Wolf durch die Tür kommt. Da die 
Kinder aber in Panik wie wild durch das Haus laufen, ist dies 
keine leichte Sache. 



und die Wölfe 


Ihre Aufgabe ist es nun, mit Hilfe von Druck auf COPY die An¬ 
gel herunterzulassen und dabei innerhalb des gesetzten Zeit¬ 
limits die Kinder aufs Dach zu heben. Gelingt es Ihnen, dann 

sind Sie.(das wird nicht verraten), wenn aber nicht, dann 

kann ich nur sagen: Übung macht den Meister. 

Ach so, nach Programmstart kann noch der Schwierigkeitsgrad 
gewählt werden: 

Hard (unmöglich) 

Medium (kann man schaffen) 

Easy (muß man schaffen) 

Das Programm wird immer mit RUN“PORKY“ geladen. 
Viel Glück! 


ProgrammhiDweise für Kassette: 

Wird das Programm auf Kassette abgesichert, so sollten die 
Programmteile in folgender Reihenfolge auf Band stehen: 

— Porky. Bas 

— Porky .Mc 

— Porky. Spr 

Tippen Sie Listing 1 ein und speichern es ab. Listing 2 abtip¬ 
pen und auf separate Kassette abspeichem. Das gleiche muß 
mit Listing 3 getan werden. Listing 2-1-3 erzeugen die BIN- 
Files die vom Basic-Programm eingeladen werden. 

(D.Baumert/CD) 


für 464-664-6128 

I ~ ' 



□ 


1000 •l528) 
1010 'P 0 R K Y ** [339] 

1020 ’*• - *• [579] 

1030 by »» [513] 

1040 ’*• Dirk «» [468] 

1050 Baumert *• [1030] 

1060 •»» (c) 1907 »• [660] 

1070 •••#•*#«»•»*«*#*» [528] 

1080 • [117] 

1090 'Listing 1 [1024] 

1100 • [117] 


Listing Porky 


40 PC 10’87 
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Platinenservice 


1110 ' 

[117] 

1120 IF PEEK(&AOOO)=0 THEN MEMORY &eFFF;LO 
AD"PORKY.MC”:LOAD"PORKY.SPH" 

[5341] 

1130 ' 

[117] 

1140 'Initalisierung 

[1718] 

1150 ' 

[117] 

1160 INK 1,26:INK 14,20;INK 5,0.4;INK 6,4, 
0;INK 2,0.26:INK 3.26.0:INK 4.12:INK 15,6; 
INK 7,4:INK 9.a:INK 11,12:INK 12,16:1NK 13 
.6:INK 15,10:INK O.OiPAPER 0:BOHDER 0 

[6994] 

1170 ballonls&gOOO:wolf1=A9140:aufzugl=492 
80:aufzug2=&93C0 

[2381] 

1160 ballon2 =&9500:haas =&9640:stein=&9780: 
vrol f 2=A96CO : schwa in=&9AOO ; leer=&9B40 

[4089] 

1190 level = l:schuss=0:rauf = 0:wolfjr=70 

[2665] 

1200 SYMBOL 242.0.0.110,&22,ATE.&22.&10.0 

[2286] 

1210 SYMBOL 243,0.34,102.238.255,255.255.2 
55 

[2105] 

1220 SYMBOL 245,195.189,219,255,219.66,60, 

0 

1230 ENT 1.10,1.1.8.-1.1 

[1811] 

[936] 

1240 GOSUB 2730 'Sound elnlesan 

[1538] 

1250 GOSUB 1750 ’Titlebild 

[1830] 

1260 MODE 0;q=REMAIN«1):PRINT CHR$(7) 

[1229] 

1270 PEN ISiLOCATE 4.6 : PRINT"Slii 11 Leveis" 
:LOCATE 6.10:PRINT "1 - Hard":LOCATE 6,12: 
PRINT"2 - Medium"iLOCATE 6,14:PRINT "3 - E 
asy":LOCATE 4,20:PRINT"Press 1 to 3" 

[10847] 

1280 a$=INKEY$:IF a$="" THEN 1280 ELSE IF 
aS="l" THEN dif=l ELSE IF a$=”2" THEN dif= 
1.5 ELSE IF a$=”3" THEN dif=2 ELSE IF a$<" 
1" OR a$>"3" THEN 1280 

[6966] 

1290 ' 

[117] 

1300 'Hauptprogramm 

11580] 

1310 ' 

[117] 

1320 GOSUB 1420;y=199'Spielfeld 1 

[1990] 

1330 EVERY 10 GOSUB 1660:EVERY 8.1 GOSUB 1 
960 

[2786] 

1340 DI:a$=INKEYS:IF level>3 THEN q=REMAIN 
(0):q=REMAIN(l):FOR s=500 TO 100 STEP-5:S0 
UND l,s,2.6;NEXT:FOR w=l TO 1000:NEXT:GOTO 
2280 

[8635] 

1350 IF rBuf=l AND y<199 THEN CALL AAOOO.a 
ufzugl,140,y;CALL &A0O0,auf2ug2.140,y-32:y 
sy-l-1 ELSE rauf=0 

[5529] 

1360 IF rauf=0 AND y)70 THEN CALL AAOOO.a 
ufzugl.140.y;CALL AAOOO,aufzug2.140.y-32:y 
=y-l ELSE rauf=l 

[6353] 

1370 IF a$=CHR$(224) AND schuss=0 AND y>90 
THEN SOUND 1,200.18.5.,1;pfeily=y*2-96;pf 
eilx=496:schuss=l 

[4684] 

1380 EI:GOTO 1340 

[ 657 ] 

1390 ' 

[117] 

1400 'Aufbau Spielfeld 1 

[1560] 

1410 • 

[117] 

1420 RANDOMIZE 1 

[1246] 

1430 MODE 0:RESTORE 1590 

[1388] 

1440 FOR a=l TO 20 

[940] 

1450 READ laenge 

[1030] 

1460 FOR anz=an TO anz-flO 

[1009] 

1470 MOVE 0.anz:DRAW laenge.anz,7 

[1828] 

1480 NEXT:an=an-H0 

[1020] 

1490 NEXT 

[3S0] 

1500 FOR a=l TO lOOiPLOT INT(RND»130+1),IN 
T(RND*320-t-l) ,0;NEXT 

[2918] 

1510 LOCATE 9.25:PEN 15:PRINT STRINGS(12,C 
HRS(243)»;:PEN 1 

[2104] 

1520 CALL AAOOO,stein,20,186:MOVE 80,308:D 
RAW 95.328,7 

[2313] 

1530 MOVE 76,308:DBAW 91,328 

[1952] 

1540 CALL AAOOO,haus.35,38 

[ 974] 

1550 CALL AAOOO.aufzugl.140,199iCALL AAOOO 
,auf zug2.140,166 

[4492] 

1560 LOCATE 1.1:PRINT"W; 0":LOCATE 6,1:PRI 
NT"T: 0":LOCATE 11.1:PR1NT"L: 1" 

[4457] 

1570 MOVE 0,380:DRAWR 500.0.15:DHAWR 0.19 

11633] 

1580 RETURN 

1 555 ] 

1590 DATA 254.250.104.108,112,112.112,112 

[1393] 

1600 DATA 108.108,106,106.106,106 

11530] 

1610 DATA 102,102.106,110.114,114,114 

(1806] 

1620 DATA 118.118,122,122.122,126.128 

[1473] 

1630 ' 

1117] 

1640 'Schuss mit Pfeil 

[ 366 ] 

1650 ' 

[117] 

1660 IF schuss=0 THEN RETURN 

[1245] 

1670 DIrPLOT -1,-1,7:tl=TEST(pfeiIx,pfeily 
):t2=TEST(pfeilx.pfeily-16);IF tl=0 AND t2 
=0 THEN pfeilx=pf6ilx-16 ELSE IF tl=ll OB 
tl = l OR t2 = ll OH t2'=l THEN TAGiMOVE pfeilx 
,pfeily:PRINT" TAGOFF:schuss=0:SOUND 1 

Listing Porky 

[17090] 



Für Ihren CPC 

Die CPC-Schneiderware ist ein univer- 
selies Peripheriesystem für die Schnei¬ 
der CPC's auf der Basis des bekannten 
ECB-Bussystems. Um die Schneiderwa¬ 
re an Ihren CPC anzuschließen, benö¬ 
tigen Sie; 

1. Das Verbindungskabel vom Expan¬ 
sionsport des Rechners zur Basis¬ 
platine (Rechnertyp beachten, da An¬ 
schlüsse bei 464/664 verschieden 
von 6128) 

2. Die Basisplatine, welche die Pinbe¬ 
legung der CPC-Ports auf die des 
ECB-Systems umsetzt. Diese Karte 
enthält fünf Steckplätze zur Aufnah¬ 
me und gleichzeitigen Ansteuerung 
der Schneiderware- Erweiterungs¬ 
karten. 

Wollen Sie nur eine Karte betreiben, so 
können Sie diese über ein selbstgefer¬ 
tigtes Kabel an den CPC anschließen. 
Die Anschlußbelegung dieses Kabels 
sehen Sie in Heft 7/86, S.61. 


Gesammelte Werke ! 

Die SCHNEIDERWARE begann in Heft 
6/86. Über den Platinenservice stehen 
Ihnen alle Karten zur Verfügung. 

Die Preisei 

BASisplatine, unbestückt 24,90 DM 


dto., bestückt 62,90 DM 

Kabel 464/664 35,90 DM 

Kabel 6128 45,90 DM 

Centronics, unbestückt 17,90 DM 

dto., bestückt 79,90 DM 

V/24, unbestückt 29,80 DM 

dto., bestückt 139,90 DM 

Neöeil, unbestückt 17,90 DM 

dto, bestückt 119,90 DM 

Trafo 79,90 DM 

Karte und Trafo 184.90 DM 

Hardware-Uhr, unbest. 29,80 DM 

Hardware-Uhr, bestck 99,90 DM 


PIO-Karte, Platine unbest. 29,60 DM 
PIO-Karte, Karte bestck. 198,90 DM 
MIDI-Interf., Plat. unbest. 39,90 DM 
MIDI-Interface kompl. best. 198,00 DM 
A/D-D/A Wandl., unbestückt 29,80 DM 
A/D-D/A Wandl., funktionsf. 169,90 DM 


Das verwendete Platinenmaterial ist 
glasfaserverstärktes Epoxydharz; die 
beidseitig beschichteten Platinen sind 
chemisch durchkontaktiert. Für die Fer¬ 
tigbausteine kommen Bauteile erster 
Wahl zum Einsatz, 


Zahlungsbedingungen: 

Gesamtpreis zuzüglich 5,— DM Por¬ 
to/Verpackung (im Ausland 8,- DM 
Porto/Verpackung), 


Bitte Postkarte im 
Heft benutzen! 


Am einfachsten per Vorkasse (Verrech¬ 
nungsscheck) oder als Nachnahme zu- 
zügl. der Nachnahmegebühr (in das 
Ausland nicht möglich). 



DMV Daten- und Medien 
r Verlagsgeseilschatt mhli 
PosifacN 250 Füldaer Sir 6 
3M0 csoh.voge • Toi. (0 565i) 8702 





























Programm 


,0,12,5...15:EVERV 8,2 GOSUB 2010:EI 
1680 IF tlOO OR t2<>0 THEN TAG; MOVE pfeil 
X.Pfeily:PRINT" ";;TAGOFF:schuss=0:EI:RET 
URN 

1690 IF pfeilx<170 THEN TAG;MOVE pfeilx.pf 
eily:PRINT" ";:TAGOFF:schuss=0:EI;RETURN 
1700 TAG:MOVE pfeiIx,pfeily:PRINT CHR$(242 
);:MOVE pfeilx+32,pfeily:PRINT" ":;TAGOFF 
1710 EI:HETURN 
1720 ' 

1730 ’ Titelbild 
1740 ’ 

1760 MODE 0 

1760 LOCATE 4.10:PEN 1:PRlNT'Torky":LOCATE 
14.10;PRINT"by" 

1770 LOCATE 13,12:PRINT"Dirk";LOCATE 15.14 
:PRINT"B. 

1780 LOCATE 7,22:PRINT"(c) 1987" 

1790 LOCATE 1,24:PEN 15 :PRINT''Press a Key 
to Start"; 

1800 CALL iA000,wolf2,25.56:CALL lAOOO.wol 
f2,115.56:CALL fcAOOO.haus.25,170:CALL &AOO 
0,haus.115.170 

1810 RESTORE 2820:EVERY 15,1 GOSUB 2790:so 
u=l 

1820 FOR y=96 TO 199 

1830 CALL 4AOOO,ballonl.1,y:CALL ftAOOO.bal 
lonl.140,y:CALL tAOOO,aufzugl.70.199-y+96 
1840 CALL tAOOO,wolfl.1.y-32iCALL AAOOO.wo 
If1.14 0,y-32:CALL AAOOO.aufzug2.70.199-y+9 
6-32 

1850 IF INKEYSO"" THEN RETURN 
1860 NEXT 

1870 FOR y=96 TO 199 STEP 2 

1880 CALL AAOOO.ballon2,1,199-y+96:CALL iA 

000.ballon2.140,199-y+96:CALL lAOOO.aufzug 

l,70,y 

1890 CALL AAOOO.wolfl,1,199-y+96-32:CALL 4 
AOOO.wolfl,140,199-y+96-32:CALL 4AOOO.aufz 
ug2,70.y-32 

1900 IF INKEYSO"" THEN RETURN 
1910 NEXT 
1920 GOTO 1820 
1930 ' 

1940 'Woelfe bewegen 
1950 ■ 

1960 D1:IF wolfy<189 THEN CALL 4A000,ballo 
nl,65.wolfy:CALL 4AOOO,wolf1,65.wolfy-32 : w 
olfy=wolfy+(level/dif) ELSE CALL 4A000,lee 
r,65,189;CALL AAOOO,leer.65,189-32:CALL 4A 
000,wolf2,1,186:wart=wart+l:IF wart=10 THE 
N wolfy=70:wart=0:wolfswolf+1:GOSUB 2080 
1970 EI:RETURN 
1980 • 

1990 'Wolf getroffen 
2000 ’ 

2010 q=REMAIN(1):D1 

2020 IF wolfy>70 THEN CALL 4AOOO,ballon2.6 
5,wolfy:CALL 4A000.wo 1f1,65,wolfy-32:wolfy 
=wolfy-4:SOUND l.wolfy«3.1.5,.l;EI:RETURN 
2030 CALL AAOOO,leer,65.70:CALL AAOOO.leer 
, 65.70-32 : war t=wert4-l : IF wart = 10 THEN tref 
fer=treffer+l:GOSUB 2220:wolfy=70;q=REMAlN 
(2);EVERY 8,1 GOSUB 1960:wart=0 
2040 EI:RETURN 
2050 • 

2060 'Stein faellt 
2070 ' 

2080 DI:LOCATE 3.1:PRINT wolf; 

2090 IF wolf=6-INT(level) THEN q=REMAIN(0) 

:Q=REMAIN(1>;Q=REMAIN(2) ELSE EI:RETURN 

2100 FOR steinx=20 TO 35:CALL AAOOO,stein. 

steinx.186:FOR w=l TO 100:NEXT:NEXT 

2110 FOR st€iny=186 TO 33 STEP-3;CALL 4AOO 

0,stein.35,steiny:FOR w=l TO steiny-100:NE 

XT:NEXT:SOUND 1.0.50.15,. . 15 

2120 FOR »=1 TO 1500:NEXT:MODE 0:ballx=l 

2130 LOCATE 8,12:PEN 7:PRINT"ENDE":LOCATE 

5.22:PEN l:PRINT"Try again":LOCATE 8,23;P 

RINT"[Y/N]" 

2140 WHILE aS="";aS=INKEY$:CALL AAOOO,ball 
onl,ballX,80:CALL AAOOO,ballonl.140-balIx. 
160:ballx=ballx+0,5:IF ballx>139 THEN ball 
x=139:GOTO 2160 
2150 WEND:GOTO 2180 

2160 WHILE a$ = —:a$ = INKEY$;CALL AAOOO.ball 
onl.balIx,80:CALL AAOOO,ballonl,140-ballx. 
160;ba11x=balIx-O,5:IF ballx<l THEN ballx= 
1:GOTO 2140 
2170 WEND 

Listing Porky 


[6780] 


[ 6886 ] 

[4924] 

[416] 

[117] 

[797] 

[117] 

[507] 

[2665] 

[1595] 

[1842] 

[4292] 

[5711] 


[2960] 

[596] 

[4483] 

[4445] 


[626] 

[350] 

[1126] 

[5587] 


[3112] 


[626] 

[ 350] 
[383] 
[117] 
[343] 
[117] 
[18026] 


[416] 

[117] 

[1394] 

[117] 

[656] 

[6375] 


[10191] 


[ 416] 

[ 117] 

[1560] 

[117] 

[2326] 

[4304] 

[4990] 

[4814] 


[1656] 

[5574] 


[7354] 


[1019] 

[8082] 


[390] 


2180 IF UPPER*(aS)="Y" THEN RUN ELSE IF UP 
PER*(a$)="N” THEN MODE 2;END ELSE a*="";GO 
TO 2140 
2190 ' 

2200 'Testen ob gewonnen 
2210 ' 

2220 IF treffer=5 THEN 2230 ELSE DI:LOCATE 
8,1:PRINT treffer:;EI:HETURN 
2230 IF level<4 THEN level=level+l;wolf=0: 
treffer=0:DI:LOCATE 3,1:PRINT wolf:LOCATE 
8,1:PRINT trefferiLOCATE 13,1:PR1NT Level: 
CALL AAOOO.leer,1.186:EI:RETURN 
2240 RETURN 
2250 ' 

2260 - Im Haus 
2270 ■ 

2280 MODE 0:CALL AAOOO.schwein.92.176 
2290 FOR a=0 TO 14 STEP 2:MOVE 150,o:DRAWR 
500,0,15 :liOVE 150.200+a : DRAWR 500.0:N£XT 
2300 FOR a=l TO 10 STEP 2:M0VE 150+a.l0iDR 
AWR 0.200;MOVE 629+a,10:DRAWR 0,200:NEXT 
2310 FOR a=l TO 100 STEP 2:MOVE 250-a*2,30 
0-a;DRAWH a,0.7:MOVE 539+a«2,300-a;DRAWR - 
a.0:NEXT 

2320 FOR a=60 TO 120:MOVE 450,a;DRAW 550,a 
.l:NEXT:MOVE 500.60:DflAW 500,110,0:MOVE 45 
4,110:DRAW 546,110.0:PLOT 480.80.0:PLOT 52 
0,80,0:PLOT 500,115,0 

2330 PEN l:LOCATE 7,17:PRINT OHRS(155)STRl 
NG$(2,CHR$(154))CHH$(155):PLOT -1.-1,7:TAG 
:M0VE 220,152iPRINT OHRS<165);:MOVE 260,15 
2;PRINT CHR$(189);:TAGOFF 

2340 FOR a=l TO 10 STEP 2:MOVE 250.300-a:D 
RAW 539.300-a,7:NEXT 

2350 LOCATE 12,7:PR1NT" "rLOCATE 12.12:PRI 
NT" ••:LOCATE 12,13;PR1NT" " 

2360 WINDOW 12,12.6,18:PAPER 7;CLS;WINDOW 
1,20,1,25:PAPER 0 

2370 FOR a=l TO 10 STEP 4:MOVE 150+a.l4;DR 
AWR 0,100,4:NEXT 

2380 FOR a=l TO 120:PLOT INT(RND*149tl), IN 

T(RND*14+1),14:NEXT 

2390 LOCATE 1.1:PRINT'Time:" 

2400 CALL AAOOO,wolf2,16.38:schx=15:sch=l: 
zeit=INT(45»dif):anz=0:EI:EVERY 6 GOSUB 24 
60:EVERY 50.1 GOSUB 2600 

2410 b$=INKEYS:IF aS=CHR$(224) THEN FOR a= 
110 TO 30 STEP-2:PL0T 368,a.1:SOUND 1 .b« 2. 
1.5:FOR w=l TO 20:NEXT:NEXT;GOSUB 2540 
2420 GOTO 2410 
2430 • 

2440 'Bewegung von Schwein 
2450 ' 

2460 DI:LOCATE schx-l.24:PEN 12:PRINT " 
CHRS(245):" " 

2470 richtung=INT(RND*2+l);IF richtung>2 T 
HEN 2470 

2480 IF richtung=l AND schx<16 THEN schx=s 
chx+1 

2490 IF rlchtung=2 AND schx>7 THEN schx=sc 
hx-1 

2500 EI;RETURN 
2510 ■ 

2520 'Testen ob Schwein beruehrt 
2530 ' 

2540 IF TEST(368.26)=0 AND anz<50 THEN anz 
=anz+l:GOTO 2540 ELSE IF TEST(368.28)<>0 T 
HEN q=REMAIN(0):DIiLOCATE schx-1,24;PRINT 
SPC(3):PLOT -1.-1.12:TAG:FOR x=30 TO 110 S 
TEP 2:MOVE 352.x:PRINT CHR$(245)::NEXT:MOV 
E 352,110;PRINT" ";:TAGOFF ELSE GOTO 2560 
2550 sch=sch+l;anzsO:LOCATE 7tsch,6:PEN 12 
:PRINT CHR$(245):IF sch=4 THEN 2640 ELSE s 
chx=15:EVERY 8 GOSUB 2460;EI:RETURN 
2560 FOR a=30 TO 110 STEP 2:PLOT 368.a,0:S 
OUND 1 ,b» 3,1.5:FOR w=l TO 20:NEXT:NEXT:anz 
=0:RETURN 
2570 ' 

2580 'Zeit herunterzaehlen 
2590 ' 

2600 DI:zeit=zeit-l:LOCATE 6,1:PEN 1:PRINT 
zeit::IF zelt=0 THEN FOR wx=24 TO 90 STEP 
8:CALL AAOOO.leer.wx-8.40;CALL AAOOO,wolf 
2,wx,40:FOR w=l TO 100:NEXT:NEXT:GOTO 2120 
ELSE EI;RETURN 
2610 • 

2620 'Pork Master 
2630 • 

2640 q=REMAlN(0):q=REMAIN(1):FOR s=500 TO 
100 STEP-5;SOUND 1.s,2.6;NEXT;FOR w=l TO 5 


[6794] 


[117] 

[921] 

[117] 

[4270] 

[10916] 


[555] 

[117] 

[763] 

[117] 

[1067] 

[5494] 

[3992] 

[6356] 


[8105] 


[7923] 


[2875] 

[3388] 

[4741] 

[2290] 

[3781] 

[1106] 

[5743] 

[5868] 


[ 353] 

[117] 

[2063] 

[117] 

[2924] 

[3432] 

[2654] 

[2256] 

[416] 

[117] 

[664] 

[117] 

[14415] 


[8078] 


[4541] 


(117) 

[1974] 

[117] 

[6639] 


[117] 

[ 362 ] 
[117] 
[6511] 
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00;NEXT:MODE 0:PEN 15:LOCATE 3,5;PRINT"Con 
gratulation" 

2850 PEN l:LOCATE 7,7:PRINT"You ar«":LOCAT [6848] 
E 6.9;PEN 12:PRINT"the PORK":LOCATE 3,11;P 
EN 14;PRINT"of the Year !!" 

2660 CALL &AOOO.schwein,70,100:CALL &A000, [4447] 
aufzugl,60.68:CALL &AOOO.aufzug2,60,38 
2670 LOCATE 13,25:PEN 1;PRINT"A KEY"i;CALL [2558] 
&BB18 

2600 CLSiLOCATE 2.10:PRINT"Once More [Y/N] [3166] 


2690 a$=UPPERS(INKEYS);IF bS="Y" THEN RUN 
ELSE IF b$="N" THEN MODE 2:END ELSE 2690 
2700 • 

2710 'Sound elnlesen 
2720 ’ 

2730 ENV 4,1.15,1;ENT -6,1,1.2.1,-1.1:DIM 
soun(32) 

2740 RESTORE 2750iFOR b= 1 TO 32:READ soun( 
a):NEXT:RETURN 

2750 DATA 189,0,189,0.284,0,284.0,189.0.18 
9.0.253.0,253,0,189.0,189.0.238.0.238.0,16 
9,0,189.0,253,0,253,0 
2760 • 

2770 'Sound ausgeban 
2780 • 

2790 READ kan:IF kan=999 THEN RESTORE 2820 
:READ kan 

2800 SOUND kan.soun(sou),30000.6,6,4:sou=s 
ou+l:IF sou>32 THEN sou=l 
2810 RETURN 

2820 DATA 129,130.132.999 


[5537 ] 

[117] 

[ 2012 ] 

[117] 

[1743] 

[3284] 

[3987] 


[117] 

[1434] 

[117] 

[3690] 

[4028] 

[555] 

[779] 


999 'Listing 2 [10191 

1000 MEMORY &9FFF [134] 

1010 FOR adr=&AOOO TO &A02A:READ a5:POKE a [30251 

dr.VAL("&"+a$):NEXT 

1015 PRINT”Absaven: Press a key‘':CALL &BB1 [2660] 
8 

1016 SAVE"PORKY.MC",b,tAOOO,&2B;END [2258 ) 

1017 • Dates fuer SPRITEROUTINE [1861] 

1020 DATA F3,DD,66.01.DD.6E,00.DD,56,03,DD [3182] 
,5E.02.CD,1D 

1030 DATA BC.EB.DD,66.05.DD,6E,04.06.20,C5 [2637] 
.01,0A,00,D5 

1040 DATA ED.BO.Dl,EB,CD,26,BC,EB,C1,10,F0 [3131] 

Pn o Q ' j 


5 ' Listing 3 

10 MEMORY &8FFF:MODE 2;adr=&9000;anz=1:zei 
le=100 

20 READ aSiPRINT zeile;" Gelesen ." 

30 WHILE HID$(a$,anz,2)<>"Z2" 

40 IF MID$(aS,anz,1)="THEN anz=anz+l:la 
enge=VAL("&”+MlDS(aS,anz,2));anz=anzt2:byt 
e=VAL("&"+MID$(a$,anz.2));FOR a=adr TO adr 
tlaenge:POKE a.byte:NEXT:adr=adrtlaenge:an 
z=Bnz+2 ELSE byte=VAL ("4" +MIDS ( a$.anz.2 )1: 
POKE adr,byte:anz = anz + 2:adr = adr + l 
50 WEND 

60 IF Z6ile=370 THEN 70 ELSE anz=1;zei1e=z 
eile+10;G0TO 20 

70 PRINT"Absaven: Press a Key":CALL &BB10 

80 SAVE"porky.spr".b.49000.4C81:END 

90 ' Komprimierte SPRITES 

100 DATA -540045CF-0800CFCF8A-060045CFCFCF 

-0600CFCFCAC58A-0500CFCFCFC08A-040045CFCFC 

FC0CF-040045CFCFCFCACF-04O045CFCFCFCAC5-04 

0045CFCFCFCAC5-040045CFCFCFCOCF-0400ZZ 

110 DATA 45CFCFCFCOCF-0500CFCFCFC5aA-0500C 

FCFCAC58A-050045CFCFCF-060045CFCFCF-0700CF 

CF8A-070040CA-090080-090080-090080-090040- 

090040-090040-090040-090040-09004054-08008 

0FCA8O054ZZ 

120 DATA -050080E9D600E9-0400400054D654C3- 

0400400000FCFCD6-0400540000FCFCA8-0400FCA8 

OOE8E8A0-O4OOFCFCOOC1D6A8-O4OO4OFCA8C3FCA8 

-04004054A8FCFC-0500C800A8E8D4ZZ 

130 DATA -04004408005454A8-0400eC000054FCF 

C-040OeC0000FCFCF8-07O0FCFCB4-O7O0FCFO7C0O 

000014280054F83CFCO00O0O54BC00FCBCF4FO0O00 

0050FC7CFCFC783CA8ZZ 

140 DATA 0000O0F4FCFCFCBCFCD60O0OO050FCA85 

4FCE9D6-0400A00054FCE9D6-0700FCE9D6-0700FC 

E9A8-0700FCE9A8-0600FCFCFCA8 0600FCFCA8- 07 

0054FCA8-23004080-0800a040-080080ZZ 

160 DATA 40-08008040-08004080-08004080-080 


[ 1022 ] 

[2328] 

(1691 ] 
[1694] 
[11795] 


[390] 

[3020] 

[2480] 

[2264] 

[1370] 

[7117] 


[12310] 


[8040] 


[6853] 


[8231] 


[6794] 
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04080-070040906080-0500409030306080-040090 
-04306000000040301030302030800000902010102 
020106000009000301020300060ZZ 

160 DATA 004030003010203000308040300030102 [6173] 
030003080902010201020102010609020102010201 
020106090201020102010201O6O-OACO8OOO8OOO0O 
008000ZZ 

170 DATA 80408000800080008000B040800080008 [6276] 
000800080408000600060008000804080008000800 
080006040800080008000600060406000600080006 
OOOZZ 

160 DATA 604080006000800080008040800080008 [6276] 
000800080406000800080008000804080006000800 
060006040600080008000800080408000800080006 
OOOZZ 

190 DATA 804080006000800080008040800080008 [6364] 
000600060408000800060008000804080008000800 
080339140800060006000803391628000800080009 
133ZZ 

200 DATA 91628OOO8O540OOO91918O628OOO0OA88 [6177] 
02291ligi40600080Aa8033913391408000D400e01 
1913380628000D4006033911191628000D4008022e 
033ZZ 

210 DATA 91408000D4008000913391408000D4008 [6180] 
000913391408000D41180119133914080A8D411913 
391339162D4FCD4FC91339111916280A8D41191008 
033ZZ 

220 DATA 91628000D4118033gi3391628000D4008 [6259] 
03391339162800080Ae803391339162600091A8801 
191339162600091548000913391628000910080339 
133ZZ 

230 DATA 916280009133913391339162800091339 [6652] 
133913391408000913391339133914090309030903 
090309060-OA30-5D008ACF-070045CFCF8A-06004 
5CFC5CF-O60045CFC0Z2 

240 DATA CF-0700CFCAC5-070045CAC58A-060045 [8090] 
CFCOCF-060045CFCACF-0700CFCACF-070045C08A- 
070045CO8A-O7OOCFC58A-O7OOCFC5-O0OOCFCF-O7 
OO45CFCF8A-O6OO45CFCF8A-O7OOCFCF0A-O7OO45C 
F-0800ZZ 

250 DATA 4OCA-O9OO8O-O9OO0O-O9OO8O-O9OO4O- [8070] 

090040-090040-090040-3AOO1020-08003030-070 

0-0430-05003030609030300000001030309060303 

020000030303090603030300000303030609O30ZZ 

260 DATA 3O3OOO1O-O83O2O1O-O03O2O-1E3O-OCF [6900] 

3F9F3F9F3F9F3F9F3F6-08FCF9F3F9F3F9F3F9F3F9 

F3F9F6-04COF9F3F9F3F9F680008040-04FCF9F380 

008040F3COCODlF3F3e00080ZZ 

270 DATA 40F38000D1F3F68000B040FC8000D4F9F [6950] 
6-04COF38000D1F9D4F3F6F3F6F3C00OD1F9D4-05F 
C8000D4F9D1F3F9F3F9F38000D1F3D1F3F9F3F9F38 
OOOD1-OBF3-3FOOZZ 

280 DATA 54A8-0800FCFCA8-060054FCFCA8-0600 [6682] 
54FCEDFC-0600FCDEDEFC-0600FCFCFC54A8-0500F 
CA8A0FCFC-O4OO54FCFCDEEDFC-O4OOFCFCEDFCFCF 
C-0400FC54FC545454A8000000FCA8ZZ 

290 DATA -04FCA8000000FCA8FCDEFCFCA8000000 [10060] 
54A8FCA8ED54FC00000054FC54-04FC-0400FC54ED 
54EDFC-04005454-04FC-0400FCA8FCDE54A8-0400 
FCA8FCFCFCA8-040054A8FC54EDZZ 

300 DATA 54-040054A8-04FCA8-0400FC54ED54FC [11295] 

A8-0400FC54FCFC54A8-0400FC54A8FCFC-0500FC5 

4FCFCA8-050054FCFCA8-060054A854-070054FCA8 

OOA8-050054D60054FC-0500E9a200FCD6-0500ZZ 

310 DATA E98200E9D6-0500FCFCFCE9A8-0500-04 [9525] 

FC-060054E8E8FC-060054FCD6FC-060054FCC3FC- 

O7OOFCC18O-O7OO54Ea-O0OO54FCAeOOOOFC-O4OOF 

CFCA80054-0500FCA8A854FCAB54A80000FCZZ 

320 DATA FC54FCFC54E9D60000-04FCA8A8E9D6A8 [8159] 

54FCFCFCA8FC5454C3A854FCA85454FCA854C3FC54 

FCFCFC0OFCFCOOE9D6-04FC0000A8OO-06FC00OO54 

0054A8-04FCA8-0500ZZ 

330 DATA 54FCFCFCA8-050054FCOOFCA8-050054F [9461] 

C0054FC-050054A800FCA8-0500FCA800FCA8-0500 

FCA854FC-0600FCA854FC-0600FCA854FC-060054F 

C54FCA8-06005454FCA8-27003333-080033ZZ 

340 DATA 3322FC-050011333322D4 -05003391002 [6870] 

280A8000000223311330080A8000000-0433008054 

000000113333OO220O54OOOOOO33331133228OOOA8 

000022003333ZZ 

350 DATA 008000A80000003333330080005400000 [6751] 
033333300800000B9001133333300800000B9-0533 
228000005433333311332280000011330000333322 
0OOOOOZZ 

360 DATA 1100-04332280000000A8-04332280000 [7408] 
OOOA8-043322800033005411333333228000330000 
B9333333228000332200-043322800011-06332280 
00-0733008000-07330080-0900ZZ 

370 DATA 80-090080-090080-090080-ffOO-ffOO [1853] 
ZZ 
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I —Tips & Tricks 


MACRO: ein Utility für Z 80 Programmierer 


Das Programm MACRO ist eine leistungsstarke Hilfe 
für die Entwicklung von Software in Maschinensprache. 
Durch den Einsatz eines Macro-Assemblers wird die 
Programmierung nicht nur schneller, sondern der 
Quellcode wird auch übersichtlicher. Wiederkehrende 
Funktionen werden nur einmal in einer Bibliotheks-Da¬ 
tei deBniert und im Assembler-Programm mit Namen 
angegeben. Der Macro-Assembler ersetzt diesen Namen 
durch die entsprechenden Befehle. Macros (so nennt 
man die mit Namen definierten Programmteile) wie 
PRINT, OPEN, CLOSE, GETKEY etc. sind in fast je¬ 
der Macro-Bibliothek enthalten. Dadurch wird das Pro¬ 
grammieren recht komfortabel und Fehler werden we¬ 
sentlich seltener. 

Das Programm ist in der vorliegenden Fassung so eingestellt, 
daß das Assembler-Format des Digital Research Assemblers 
ASM.COM erwartet wird. Dieser lNTEL-8080 Assembler ist 
auf der CP/M- 2.2 System-Disc als Dienstprogramm vorhan¬ 
den. MACRO ist aber leicht an jedes andere Format anzupas¬ 
sen, da alle wichtigen Zeichen als Parameter angegeben wer¬ 
den und daher nur an einer Stelle geändert werden müssen (sie¬ 
he unter Anpassungen). 


Bedienung 


Der Assembler-Quellcode ist auf einer Diskette in der Datei 
*. MAC (*. MAC steht für alle Dateien mit der Extension MAC) 
abgelegt. Nach dem Start mit RUN“MACRO“ wird der Da¬ 
teiname ohne den Zusatz .MAC eingegeben und mit < J > be¬ 
stätigt. Nach dem Durchlauf ist eine Datei mit der Bezeichnung 
*.ASM vorhanden. Diese kann nun von einem normalen As¬ 
sembler in ein lauffähiges Programm umgesetzt werden. Der 
bisher gewohnte Assembler, egal ob 8080 oder Z80, wird also 
weiterhin verwendet. 


Aufbau der Macro-Bibliothek 


Die Bibliothek muß als Datei *.LIB auf einer Diskette vorhan¬ 
den sein. Der Name dieser Datei wird in der *.MAC Datei an¬ 
gegeben. Man kann also für verschiedene Probleme auch ver¬ 
schiedene Bibliotheken anlegen um die Verarbeitungs-Ge¬ 
schwindigkeit zu erhöhen. Am Anfang einer Macro-Bibliothek 
stehen meist wiederkehrende Konstanten oder Adressen 


wie z.B. 
BDOS 

EQU 

5 

BOOT 

EQU 

0 

CLS 

EQU 

12 

CR 

EQU 

13 

LOGEXT 

EQU 

&BCD1 

TXTOUT 

EQU 

8cBB5A 


Diese EQUates werden in die Datei *.ASM unverändert über¬ 
nommen und stehen somit jedem Programm, das diese Biblio¬ 
thek benutzt zur Verfügung ohne jedesmal neu definiert wer¬ 
den zu müssen. 

Danach folgen die Macro-Definitionen. Diese werden mit ei¬ 
ner Zeile im Format 
name MACRO (var.var,.,.) 
eingeleitet und mit dem Befehl 
ENDM 

beendet. Den mit var angegebenen lokalen Variablen können 
bei Macro-Aufruf später Werte übergeben werden. Die Be¬ 
zeichnung lokal bedeutet, daß dieser Variableimame in belie¬ 


big vielen Macros und auch im Quellprogramm Vorkommen 
kann, da er später durch den entsprechenden Wert ersetzt wird. 
Auch Sprungziele können in Macros für lokal erklärt werden. 
Dazu ein Beispiel. In der *.LIB-Datei ist folgendes Macro: 

PRGNAM MACRO TEXT 

LOCAL AROUND 

JMP AROUND 

DB TEXT 

AROUND: 

ENDM 

wird nun im Quellcode (.MAC) der Pseudo-Befehl 
PRGNAM ’Testprog V. 1 ’ angegeben, so erzeugt MACRO in 
der 'ASM-Datei die Befehle 

JMP L$0001 

DB 'TestprogV.l 'LSOOOl; 

Wie Sie sehen tauchen weder die Variable TEXT noch das La¬ 
bel AROUND im Programm später auf. Da MACRO diese lo¬ 
kalen Labels durchnumeriert entsteht nie die gleiche Sprung¬ 
adresse. Bei Anwendung der bedingten Assembliemng werden be¬ 
stimmte Labels jedoch nicht als lokal erklärt. Bedingte Assem¬ 
blierung bedeutet, daß unter bestimmten Voraussetzungen ein 
und dasselbe Macro völlig unterschiedliche Befehle erzeugt. 


Ein Beispiel; 
ABORT 

Der Aufruf 

MACRO 

IF 

JMP 

ELSE 

JMP 

ENDIF 

ENDM 

ADR 

NOT NUL ADR 
ADR 

BOOT 


ABORT 

PGExrr 

erzeugt 

JMP 

PGEXIT 

wogegen nur 

ABORT 


den Befehl 

JMP 

BOOT 

erzeugt. 




Die Bedingungen beziehen sich immer auf lokale Variablen 
oder Flags. Variablen werden mit NUL var oder NOT NUL 
var abgefragt, Flags mit Flag-Name oder NOT Flag-Name. Die 
Abfrage NUL var gilt als wahr, wenn der Variablen bei Mac- 
ro-Aufnif kein Wert zugewiesen wurde (siehe ABORT). Meh¬ 
rere Einzelbedingungen können mit AND und OR verknüpft 
werden. Eine Verschachtelung von mehreren IF-ELSE-ENDIF 
Anweisungen ineinander ist selbstverständlich möglich. Als 
Beispiel für die Anwendung von Flags definieren wir das Macro 
PRINT. In PRINT ist eine Ausgabeschleife die als Unterpro¬ 
gramm angesprungen wird. Diese soll nur einmal generiert 
werden und von allen PRINT-Anweisungen zu benutzen sein. 


PRINT 

MACRO 

TEXT 


LOCAL 

AROUND.TXTSJXTE 


LXI 

H,Txrs 


LXI 

DJXTE-TXTS 


CALL 

PRTSUB 


JMP 

AROUND 

TXTS: 


DB 

TEXT 

TXTE: 


IF 

NOT FSPRIN 

PRTSUB: 


MOV 

TXTOUT 

A,M 


INX 

H 


DCX 

D 


MOV 

A,D 


ORA 

E 


JNZ 

RET 

PRTSUB 
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FSPRIN SET TRUE 

ENDIF 

AROUND: 

ENDM 


Alle Leser die den 8080 Code nicht verstehen, mögen mir ver¬ 
zeihen. 

Beim ersten Aufruf des Macros PRINT wird nun folgender 


Code erzeugt: LXI 

H.L$0002 


LXI 

D,L$0003-L$0002 


CALL 

PRTSUB 


JMP 

LSOOOl 

L$0002; 


DB 

'Text bei PRINT' 

L$0003: 

PRTSUB: 


MOV 

TXTOUT 

A,M 


INX 

H 


DCX 

D 


MOV 

A,D 


ORA 

E 


JNZ 

RET 

PRTSUB 


L$0001: 

Der nächste Aufruf von PRINT erzeugt nur noch 



LXI 

H,L$0005 


LXI 

D,L$0006-L$0005 


CALL 

PRTSUB 

L$0005: 

JMP 

L$0004 

L$0006: 

L$0004: 

DB 

'Text bei PRINT' 


Die Sprungmarke PRTSUB ist global, d.h. sie wurde nicht er¬ 
setzt . Sie (M daher im *. MAC-Quellcode nicht auftauchen und 
nur in einem Macro global verwendet werden. Eine weitere lo¬ 
kale Verwendung in anderen Macros ist natürlich gestattet. 
Da MACRO nicht nur die Variablen bei der Definition von 
Macros durch Komma trennt, sondern auch die ihnen zuzuwei¬ 
senden Werte in dieser Form erwartet, kann es bei bestimm¬ 
ten Parametern zu Problemen kommen. Angenommen Sie 
möchten der ersten Variablen (VARl) +80H und der 

zweiten (VAR2) ’hallo’ zuweisen. Der Aufruf NAME 
’tex’,’t’-f-80h,’hallo’ würde bewirken,daß VARl = ’tex’ 
VAR2 = ’t’ -I-80H gesetzt wird. Der Aufruf muß hier korrekt 
NAME < ’tex’, ’t ’+80H >, ’hallo ’ lauten um das gewünschte 
Resultat zu liefern. Die < >-Zeichen werden von MACRO 
entfernt. Sie sollen nur anzeigen, daß es sich innerhalb von ih¬ 
nen um »einen« Wert handelt, der nicht getrennt werden darf. 
Mit diesen Zeichen können Sie nach Herzenslust herumschach¬ 
teln. Auch über Macro-Verschachtelungen hinweg. Alles klar? 
In der Macro-Bibliotiiek können Kommentare geschrieben wer¬ 
den, die nicht mit nach *.ASM übernommen werden. Diese 
werden dann nicht mit; sondern mit;; vom Programmcode ge¬ 
trennt. Leerzeilen werden ebenfalls nicht von *.LIB nach 
*.ASM übernommen. 


Aufbau des Quellcodes: 


Als erstes müssen im Quellcode die Werte für wahr und falsch 
als EQUates definiert werden. Danach müssen alle in den ver¬ 
wendeten Macros vorkommenden Flags auf ihren Ausgangs¬ 
zustand gesetzt werden. Zweckmäßig ist es, eine kleine Extra¬ 
datei anzulegen, in der alle Flags definiert werden. Diese wird 
dann als Programmanfang eingeladen. Nun folgt die MACLIB- 
Anweisung, in der der Name der *.LIB-Datei angegeben wird. 
Der jetzt folgende Programmcode kann sowohl die üblichen 
Assembler-Anweisungen als auch die Macros als Befehle ent¬ 
halten. Ein letztes Programm-Beispiel: 

Macro-Bibliothek CPMMAC.LIB: 

BDOS EQU 5 

BOOT EQU 0 

CONOUT EQU 2 


ABORT 

MACRO 

ADR 


(Definition wie o, a,) 

PRINT 

MACRO 

TEXT 


(Definition wie o.a.) 

TXTOUT 

MACRO 

PUSH 

H 


PUSH 

D 


PUSH 

B 


MVI 

C,CONOUT 


MOV 

E,A 


CALL 

BDOS 


POP 

B 


POP 

D 


POP 

RET 

ENDM 

H 

Quellcode Datei TEST.MAC: 

FALSE 

EQU 

0 

TRUE 

EQU 

NOT FALSE 

F$PRIN 

SET 

FALSE 

ivIACLIB 

CPMMAC 


ORG 

lOOH 


START: 

PRGNAM 

'Test V.l Datum' 


PRINT 

ABORT 

'Ich funktioniere 

END 




Eingabe über ED. COM oder unter BASIC mit LINE INPUT 
und PRINT #9. 

Start von MACRO. 

Programmname ist TEST (ohne Erweiterung). 

Anschließend unter CP/M folgende Befehle eingeben: 

A>ASM TEST 
A>LOAD TEST 

(ASM.COM und LOAD.COM müssen auf der Diskette sein). 
Nun sind folgende Dateien vorhanden: 

TEST.MAC, TEST.ASM, TEST.HEX, TEST.PRN und 
TEST.COM. 

Sehen Sie sich die Datei TEST.PRN doch ruhig einmal mit 
A/TYPE TEST.PRN an. Die Ausgabe können Sie mit 
<CTRL> -t- <S> stoppen und starten. Auch das Programm 
TEST sollte nun funktionieren. Fragen Sie es mal mit 
A>TEST 

Als Literatur zu empfehlen ist: Programmieren mit CP/M von 
Alan R. Miller, erschienen bei SYBEX. Das Buch behandelt 
Macros sehr intensiv und ist auch für Laien verständlich. Es 
werden dort ausschließlich 8080 Befehle verwendet, so daß der 
Assembler ASM.COM benutzt werden kann. 

Anpassungen: Wird z.B. der BASIC-Editor zur Eingabe der 
Zeüen verwendet, so ist vor jeder Zeile eine Zeilennr., die ent¬ 
fernt werden muß. Alle Zeilen, egal ob aus *.LIB oder aus 
*.MAC werden in der Routine ab Zeile 2860 eingelesen. Wird 
aus *. MAC gelesen so ist fm=-1, sonst 0. Die Zeilennummem 
können mit einem kleinen Zähler schnell bei der zentralen Aus¬ 
gabe ab 3540 wieder eingefügt werden. 

Die wichtigsten Änderungen können in den Parametern ab Zeile 
4420 vorgenommen werden, zl ist das Zeichen, in dem Tex¬ 
te eingeschlossen werden, zl = CHR$(34) ändert es von ’ auf 
“.z2 (:) wird autom. an jedes Label angefügt.z3 (;) kennzeich¬ 
net Kommentare. Evtl, auf ’ ändern.z4 evtl ”. 
Eine Anpassung der RSX-Befehle ist normalerweise nicht er¬ 
forderlich. Sie sollten auch mit anderen RSX-Erweiterungen 
zusammen funktioniem, da sie vom LINKER automatisch unter 
HIMEM eingeladen werden. Sie ermöglichen lediglich, daß 
von zwei Dateien abwechselnd gelesen werden kann (*. LIB und 
*.MAC) und daß in *.LIB die gewünschte Stelle direkt ange¬ 
sprungen wird und nicht erneut gesucht werden muß. Dazu 
wird lediglich der File-Control-Block OPENIN manipuliert. 

(Jan Wieck) 
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für 464-664-6128 


für 464-664-6128 

r 


1000 

' ********* 

[418] 

1010 

' * MACRO * 

[644] 

1020 

■ ********* 

[418] 

1030 

* 

[117] 

1040 

•*** INIT »** 

[528] 

1050 

a=HIKEM:OPENOUT"DUMMYS$S.$$S" 

[2123] 

1060 

IF HIMEM<a THEN MEMORY HIMEM-1 

[1301] 

1070 

CLOSEOUT:CLEAR 

[1611] 

1080 

GOSUB 4220 

[895] 

1090 

CLS 

[91] 

1100 

PRINT 

[361] 

1110 

PRINT "M A C R 0" 

[1092] 

1120 

PRINT 

[361] 

1130 

OPENOUT destinS 

[667] 

1140 

OPENIN sourceS 

[1543] 

1150 

IF NOT EOF THEN 1190 

[772] 

1160 

CLOSEIN:CLOSEOUT 

[1298] 

1170 

er=0:GOSÜB 5070 

[1504] 

1180 

END 

[110] 

1190 

GOSUB 2860:IF NOT fr THEN 1150 

[1657] 

1200 

IF zb="EQÜ" THEN 1420 

[1717] 

1210 

IF zm»"SET’' THEN 1270 

[1799] 

1220 

IF zm='’MACLIB” THEN 1480 

[1313] 

1230 

GOSUB 3540 

[981] 

1240 

GOTO 1150 

[309] 

1250 

' 

[117] 

1260 

• *** gjjf *** 

[430] 

1270 

IF ce=0 THEN 1330 

[931] 

1280 b=-l:a=INSTR{zo,z0):IF a>0 THEN zo=LE 
FT$(zo,a-l) 

[2998] 

1290 

FOR a=0 TO ce-1 

[859] 

1300 

IF eq$(a)=zo THEN b=a:a=ce 

[1248] 

1310 

NEXT a 

[383] 

1320 

IF b)=0 THEN 1350 

[977] 

1330 

za=zo:er=6:STOP:GOSUB 5070 

[2162] 

1340 

a=f:G0T0 1370 

[1181] 

1350 

a=eq(b) 

[638] 

1360 

IF aOt AND aOf THEN a=f 

[904] 

1370 

IF zl=”" THEN 1150 

[1133] 

1380 

flS(cf)=zl:fl(cf)=a 

[826] 

1390 

cf=cf+l:GOTO 1150 

[1151] 

1400 

' 

[117] 

1410 

■ *** EQU **• 

[1010] 

1420 

GOSUB 4020:IF NOT fe THEN 1230 

[1974] 

1430 

IF zl="” THEN 1230 

[1220] 

1440 

eq$(ce)=zl:eq(ce)=ev 

[893] 

1450 

ce=ce+l:GOTO 1230 

[1421] 

1460 

' 

[117] 

1470 

’ *•» MACLIB *** 

[1340] 

1480 

zp=zq:!GET2P,«zp:CLOSEIN 

[1690] 

1490 

maclib$=zdr2+zo+zlib 

[2116] 

1500 

' 

[117] 

1510 

' *** MACRO-LISTE ERSTELLEN 

[1990] 

1520 

' 

[117] 

1530 

OPENIN iaaclibS:fm=t 

[2063] 

1540 

IF EOF THEN 1710 

[183] 

1550 

GOSUB 2860;IF NOT fr THEN 1540 

[1730] 

1560 

IF zm="MACRO" THEN 1600 

[1274] 

1570 

GOSUB 3540 

[981] 

1580 

GOTO 1540 

[391] 

1590 

' 

[117] 

1600 

IF zl="" THEN 1650 

[1121] 

1610 a=INSTR{zo,z0):IF a>0 THEN zo=LEFTS(z 
o,a-l)+RIGHTS(zo,LEN(zo)-a):GOTO 1610 

[4561] 

1620 iiLa$(ciD,0)=zl:ma$(cm,l)=zo 

[1794] 

1630 maS(cm,2)=zq:|GETZP,@ma$(cm,2) 

[2982] 

1640 ciri=cm+l 

Usling Macro 

[367] 


1650 IF EOF THEN er=l:GOSUB 5070:GOTO 1710 [2150] 

1660 LINE INPUT #9,zz:IF INSTR{z2,"MACR0") [4983] 
>0 THEN 1665 

1661 IF INSTR(2Z,"ENDM"))0 THEN 1665 [1451] 

1662 GOTO 1650 [313] 

1665 a=l:zl="": 2 m="":zo*"'':zx*"”:GOSUB 289 [2846] 

0 

1666 IF MOT fr THEN 1650 [767] 

1670 IF zni=”MACRO" THEN er=l;GOSüB 5070;GO [2781] 
TO 1560 

1680 IF zid<>"ENDK" THEN 1650 [1815] 

1690 GOTO 1540 [391] 

1700 ‘ [117] 

1710 IF ern>0 THEN CLOSEOUT:CLOSEIN:END [2497] 

1720 ’ [117] 

1730 ' *** MACRO-PROZESSOR *** [1505] 

1740 ' [117] 

1750 CLOSEIN:OPENIN sourceS:LINE INPÜT 19, [4066] 
z: !SETZP,«zp:fin=f 

1760 ■ [117] 

1770 IF EOF THEN 1810 [298] 

1780 GOSUB 2860:IF MOT fr THEN 1770 [1709] 

1790 GOSUB 1870:IF fx THEN 1750 [1588] 

1800 GOSUB 3540:GOTO 1770 [1951] 

1810 CLOSEIN:CLOSEOUT [1298] 

1820 IF ern>0 THEN END [679] 

1830 ICPM [777] 

1840 ' [117] 

1850 ’ *** MAC-SUB *** [1400] 

1860 ' [117] 

1870 b=-l:IF 2 »=”" OR cffi=0 THEN 1910 [973] 

1880 FOR a=0 TO cm-l [700] 

1890 IF zni=iBa$(a,0) THEN b=a:a*cm [1645] 

1900 NEXT a [383] 

1910 IF b»-l THEN fx=f:RETURN [641] 

1920 • [117] 

1930 ’ *** MACRO EINFUEGEN *** [2229] 

1940 ' [117] 

1950 zp= 2 q:lGETZP,«zp:bb=b:zb=z:z=zo:GOSUB [4206] 
3320:zo-z:Z3zb:b=bb 

1960 i[isS(cs)=zp [925] 

1970 ms (cs ,0)=ic:nis (cs, l)=ig [2019] 

1980 ms(cs,2)=lc:ms(cs,3)[2089] 
1990 ms(cs,4)=vc:iBs(cs,5)=vg [1299] 

2000 cs=cs+l [548] 

2010 ig=ic:lg=lc:vg=vc [1445] 

2020 ’ [117] 

2030 zp=ma$(b,2) [837] 

2040 zx=maS(b,l) [1076] 

2050 IF zx="" THEN 2290 [889] 


2060 a=INSTR(zx,",’') :IF a=0 THEN a=LEM(zx) [2955] 
+1 

2070 za=LEFT$(2X,a-l):zx=RIGHTS( 2 X,LEN(zx) [2810] 
+l-a) 

2080 a=INSTR(za.zO):IF a>0 THEN za=LEFTS(z [4754] 

a,a-l)+RIGHTS(za,LEN(za)-a):GOTO 2080 

2090 vaS{vc,0)=za:b=0:a=0;IF LEFT$(zx,1)=" [4041] 

I* TtFW / mmw f v 


f inCiil X vn i p V f ufiPf V 6A 7 X/ 

2100 a=a+l:IF a>LEN(zo) THEN 2230 [2723] 
2110 za=MID$(zo,a,l) [1017] 
2120 IF zaozl THEN 2150 [1012] 
2130 a=a+l:IF a>LEN(zo) THEN zo*zo+ 2 l [3125] 
2140 IF MIDS( 20 ,a.l)= 2 l THEN 2100 ELSE GOT [2056] 
0 2130 

2150 IF za<>"<" THEN 2220 [1415] 
2160 b=b+l [569] 
2170 a=a+l:IF a)LEN(zo) THEN zoszo+">” [3126] 
2180 IF MID$(zo,a,l)=’'<" THEN 2160 [1022] 
2190 IF MIDS(zo,a,l)<>">" THEN 2170 [2208] 
2200 b=b-l:IF b>0 THEN 2170 [1453] 
2210 GOTO 2100 [359] 

Listing Macro 
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Ausschneiden! 
Der kalkulierte Wahnsinn: 
Schneider PC1512 mit 20 MB 
plus Matrixdrucker DM P 31 60 

für DM^^ -* 





Schneider kann’s halt! 

Beim Schneider PC 1512 mit monochro¬ 
mem Monitor und HD20 sind außer Mi¬ 
crosoft MS DOS 3.2, Digital Research 


® SYSnMS87 

19.10,87-23.10.37 
Halle 22 • Stand C2/D3 





GEM, GEM Desktop, GEM Paint und 
GEM-unterstütztem Locomotive Basic 
auch noch 20 MB Kapazität auf Festplatte 
geboten. Diesen Super-Computer gibt’s 
mit dem Super-Drucker DMP3160 kom¬ 
plett zum interessanten Paketpreis. 
Deshalb greift der Fachmann zur Schere 
und schneidet diese Anzeige aus, damit 
sie ihn ständig daran erinnert, möglichst 
bald zum nächsten Schneider-Fachhänd- 
ler zu gehen. Weil man die Vorteile dieses 
Leistungspaketes am besten live erlebt. 
Und weil’s so ein Angebot natürlich nicht 
alle Tage geben kann. 

Obwohl man mit Schneider erfahrungs¬ 
gemäß immer besonders gut abschnei¬ 
det. 




’ zum interessanten Paketpreis bei Ihrem Schneider- 
Fachhändler. 


Schneider 

Schneider Rundfjnkwerke AG • Siivasiraiie 1 8939 Türkhelm l 
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2220 IF zaO"," THEN 2100 

[865] 

2230 za=LEFT$(zo,a-l):zo=RIGHT$(zo,LEN{zo) 
+l-a) 

[2742] 

2240 IF LEFTS(zo,!)="/■ THEN zo=RIGHTS(zo, 
LEN{zo)-l) 

[1834] 

2250 IF LEFTS(za,l)="<" THEN za=MID$(za,2, 
LEN(za)-2) 

[2994] 

2260 vaS(vc,l}=za:vc=vc+l 

[1458] 

2270 GOTO 2050 

[361] 

2280 ’ 

[117] 

2290 IF NOT fm THEN CLOSEINtOPEHIN maclibS 
:LINE INPÜT #9,z 

[1660] 

2300 !SET2P,tzp:fm*t 

[1197] 

2310 GOSUB 2860:IF KOT fr THEN 2310 

[1792] 

2320 IF ziii<>"ENDM” THEN 2430 

[1787] 

2330 IF ic=ig THEN 2360 

[694] 

2340 er=2:GOSUB 5070 

[556] 

2350 ic=ic-l:GOTO 2330 

[179] 

2360 cs=cs-l 

[336] 

2370 zp=ms$(cs) 

[804] 

2380 ic=ms(cs,0):ig=ms(cs,1) 

[946] 

2390 lc=ros(cs,2):lg=ms(cs,3) 

[524] 

2400 vc=ms(cs,4):vg=ms(cs,5) 

[1928] 

2410 fx=t:RETURN 

[407] 

2420 ■ 

[117] 

2430 IF zm<>"EHDIF" THEN 2470 

[1509] 

2440 IF iOig THEN ic=ic-l:GOTO 2310 

[1088] 

2450 er=4:GOSUB 5070:GOTO 2310 

[1195] 

2460 ' 

[117] 

2470 IF zm<>''ELSE” THEN 2510 

[1391] 

2480 IF iOig THEN is(ic-l,l)=NOT is(ic-l, 
1):GOTO 2310 

[999] 

2490 er=5:GOSUB 5070:GOTO 2310 

[1148] 

2500 • 

[117] 

2510 IF Ztt<>"IF" THEN 2590 

[1008] 

2520 IF ic=ig THEN 2540 

[738] 

2530 IF is(ic-l,0) AND is(ic-l,l) THEN 254 
0 ELSE GOTO 2560 

[2253] 

2540 GOSUB 3590:IF NOT fi THEN 2560 

[1732] 

2550 is(ic,0)=t:is(ic,l)=iv:GOTO 2570 

[1306] 

2560 is(ic,0}=f 

[235] 

2570 ic=ic+l:GOTO 2310 

[704] 

2580 ' 

[117] 

2590 IF ic=ig THEN 2620 

[786] 

2600 IF is(ic-l,0} AND is(ic-l,l) THEN 262 
0 ELSE GOTO 2310 

[2419] 

2610 ■ 

[117] 

2620 IF zm<>"SET" THEN 2700 

[1916] 

2630 GOSUB 4020:IF NOT fe OR (evot AND ev 
<>f) THEN 2310 

[2703] 

2640 IF cf=0 THEN 2680 

[416] 

2650 b=-l:F0R a=0 TO c£-l 

[2304] 

2660 IF zl=fl$(a} THEN b=a:a=cf 

[1643] 

2670 NEXT a:IF b>=0 THEN fl(b}=ev:GOTO 231 

[3005] 

2680 za=zl:6r=7:GOSUB 5070:GOTO 2310 

[2980] 

2690 ‘ 

[117] 

2700 IF zm<>''LOCÄL" THEN 2790 

[2194] 

2710 a=INSTR(zo,z0):IF a>0 THEN zo=LEFT$(z 
o,a-l)+RIGHTS(zo,LEN(zo)-a):GOTO 2710 

[4573] 

2720 IF zo="" THEN 2310 

[1194] 

2730 a=INSTR(zo,","):IF a=0 THEN za=zo:zo= 
"":GOTO 2750 

[3021] 

2740 za=LEFT$(zo,a-l):zo=RIGHTS(zo,LEN(zo) 
-a) 

2750 cn=cn+l 

[2434] 

[102] 

2760 laS(lc,0)=za:la$(lc,l)=”L$”+RIGHT${ST 
R${10000+cn),4) 

[3226] 

2770 lc=lc+l:GOTO 2720 

[523] 

2780 ’ 

[117] 

2790 GOSUB 1870:IF fx THEN 2290 

üsting Macro 

[1632] 


2800 

. 

[117] 

2810 

GOSUB 3540 

[981] 

2820 

GOTO 2310 

[349] 

2830 

’ 

[117] 

2840 

' *** READ *** 

[773] 

2850 

• 

[117] 

2860 

zl="": zm="": zo="": zx='”' 

[724] 

2870 

fr=f 

[516] 

2880 

LINE INPUT #9,zz:a=l 

[2069] 

2890 

a=INSTR(a,zz,zl):IF a=0 THEN 2960 

[2027] 

2900 

b=a+l 

[613] 

2910 

a=INSTR(b,zz,zl);IF a)0 THEN 2930 

[2529] 

2920 

zz=Z2+z1:G0T0 2910 

[1273] 

2930 

zx= 2 X+MIDS(zz,b,a-b) 

[1063] 

2940 

MIDS(zz,b,a-b)=STRINGS(a-b,z2) 

[1393] 

2950 

a=a+l:GOTO 2890 

[1782] 

2960 

z=z 2 :GOSÜB 3450:IF fm THEN GOSUB 3200 

[2271] 

2970 

IF NOT fm THEN 2990 

[624] 

2980 

a=INSTR(zz,z4):IF a>0 THEN zz=LEFT$(z 

[3028] 

z,a-l):z=LEFT$(z,a-l) 


2990 

a=INSTR(zz,z6):IF a>0 THEN MID$(zz,a, 

[4106] 

l)=zO:GOTO 2990 


3000 

IF fm THEN IF zz=SPACE$(LEN(zz)) THEN 

[1121] 

RETURN 


3010 

zz=UPPER$(zz) 

[1162] 

3020 

fr=t:a=INSTR(zz,z3):IF a>0 THEN zz=LE 

[3610] 

FTS( 2 z,a-l) 


3030 

IF zz=SPACE$(LEN(2z)) THEN RETURN 

[1355] 

3040 

IF LEFT$(z2,1)=z0 THEN GOSUB 3170:GOT 

[1463] 

0 3060 


3050 

GOSUB 3090;zl=zo:zo»"” 

[2068] 

3060 

IF 2Z=”’' THEN RETURN 

[1772] 

3070 

GOSUB 3090:2in=zo:zo='”* 

[2231] 

3080 

IF Z 2 =‘'” THEN RETURN ELSE 2o=zz:G0T0 

[3058] 

3110 



3090 

a=INSTR(Z2,z0):IF a=0 THEN a=LEN(zz)+ 

[1721] 

3100 

zo*LEFT$(zz,a-l):zz=RIGHTS(zz,LEN(zz) 

[3600] 

+l-a) 


3110 

a=l 

[327] 

3120 

a=INSTR(a, 20 , 2 l):IF a=0 THEN 3170 

[1819] 

3130 

b=a+l;a=INSTR(b,zo,zl) 

[2289] 

3140 

MID$(zo,b,a-b)=LEFT$(zx,a-b) 

[1667] 

3150 

zx=RIGHTS(zx,LEN(zx)-a+b) 

[1382] 

3160 

a=a+l:GOTO 3120 

[1792] 

3170 

IF LEFT$(22,l)=z0 THEN zz=RIGHTS(zz,L 

[3550] 

EN(zz)-l):GOTO 3170 


3180 

RETURN 

[555] 

3190 

' 

[117] 

3200 

IF z="” THEN RETURN 

[958] 

3210 

IF lc=lg THEN 3320 

[1464] 

3220 

FOR c=lg TO lc-l;a=l 

[1753] 

3230 

a=INSTR(a,2,la$(c,0)):IF a=0 THEN 3 

[3042] 

310 



3240 

IF a=l THEN 3260 

[1028] 

3250 

IF INSTR(z7,KIDS(z,a-l.l))=0 THEN 3 

[2528] 

300 



3260 

b=a+LEN(la$(c,0)) 

[1643] 

3270 

IF b>LEN(z) THEN 3290 

[860] 

3280 

IF INSTR{z7,MIDS(z,b,l))*0 THEN 330 

[2860] 

3290 

z=LEFT$(z,a-l)+laS(c,l)+RIGHTS(z,LE 

[3522] 

N(z)+l-b) 


3300 

a=a+l:GOTO 3230 

[1762] 

3310 

NEXT c 

[381] 

3320 

IF z="’' OR vc=vg THEN RETURN 

[1405] 

3330 

IF zni="IF" THEN RETURN 

[1227] 

3340 

FOR c=vg TO vc-l:a=l 

[1336] 

3350 

a=INSTR(a.z,va${c,0)):IF a=0 THEN 3 

[1720] 

430 



3360 

IF a=l THEN 3380 

[1004] 

Listing Macro 



48 PC 10’87 








Tips & Tricks—| 


3370 IF INSTR(z7,MIDS(z,a-l,l))=0 THEM 3 

[2520] 

420 


3380 b=a+LEN(vaS{c,0}) 

[1465] 

3390 IF b>liEN(z) THEN 3410 

[900] 

3400 IF INSTR(z7,MIDS{z,b,l))=0 THEN 342 

[2628] 

3410 z=LEFTS(z,a-1)+vaS(c,1)+RIGHT$(z,LE 

[3412] 

N(z)+l-b) 


3420 a=a+l:G0T0 3350 

[1794] 

3430 NEXT c 

[381] 

3440 RETURN 

[555] 

3450 zi=zx:a=l 

[889] 

3460 a=INSTR{a,z,zl):IF a=0 THEN RETURN 

[2881] 

3470 b=a+l:a=INSTR{b,z,zl):IF a=0 THEN a=L 

[3290] 

EN{2)+1 


3480 MID$(z,b,a-b)=LEFT$(zi,a-b) 

[1158] 

3490 zi=RIGHTS(zi,LEN(zi)-a+b) 

[1124] 

3500 a=a+l:G0T0 3460 

[1756] 

3510 ' 

[117] 

3520 ■ *** WRITE *** 

[947] 

3530 ' 

[117] 

3540 PRINT #9,Z 

[846] 

3550 RETURN 

[555] 

3560 ’ 

[117] 

3570 ’ *** IF-TEST *** 

[1063] 

3580 ’ 

[117] 

3590 c=-l:<i=0:zi=UPPER$(2o) :fi=f :iv=f 

[2493] 

3600 c=c+l:it(c,l)=0;f0=f:fl=f 

[1354] 

3610 IF LEFTS(zi,l)=z0 THEN zi=RIGHTS(zi,L 

[2959] 

EN{2i)-l):G0T0 3610 


3620 IF zi="" THEN 3920 

[1298] 

3630 a=INSTR(zi,z0):IF a=0 THEN a=LEN( 2 i)+ 

[2756] 

3640 za=LEFTS(zi,a-l>;zi=RIGHT${zi,LEN{zi) 

[3979] 

+l-a) 


3650 a={INSTR{z8.LEFT$(za+z5,4))-l)/4+l 

[2051] 

3660 IF a=INT(a) THEN ON a GOTO 3830,3850, 

[2936] 

3870,3870 


3670 IF fl THEN 3740 

[890] 

3680 IF cf=0 THEN 3730 

[350] 

3690 b=-l:F0R a=0 TO cf-1 

[2304] 

3700 IF za=fl$(a) THEN b=a:a=cf 

[864] 

3710 NEXT a 

[383] 

3720 IF b>=0 THEN it{c,0>=fl(b) XOR fO:GOT 

[2152] 

0 3600 


3730 er=7:GOT0 5070 

[607] 

3740 IF vc=vg THEN 3820 

[1823] 

3750 b=-l:F0R a=vg TO vc-1 

[1680] 

3760 IF za=va${a,0) THEN b=a:a=vc 

[1123] 

3770 NEXT a 

[383] 

Usting Macro 



3780 

IF b=-l THEN 3820 

[935] 

3790 

a=(vaS(b,l)=”") 

[1256] 

3800 

it(c,0)=a XOR fO 

[518] 

3810 

GOTO 3600 

[680] 

3820 

er=8;G0T0 5070 

[963] 

3830 

IF fO OR fl THEN 3910 

[1195] 

3840 

fO=t:GOTO 3610 

[847] 

3850 

IF fl THEN 3910 

[864] 

3860 

fl=t;G0T0 3610 

[1559] 

3870 

IF c=0 THEN 3910 

[1248] 

3880 

IF it(c,l)>0 THEN 3910 

[1190] 

3890 

IF fO OR fl THEN 3910 

[1195] 

3900 

it(c,l)=a-2:(i=c:G0T0 3610 

[1235] 

3910 

er=3;G0T0 5070 

[1127] 

3920 

IF c=0 THEN 3910 

[1248] 

3930 

IF cOd+1 THEN 3910 

[1823] 

3940 

a=0:i7=it(0,0) 

[1339] 

3950 

a=a+l:IF a=c THEN fi=t:RETURN 

[2159] 

3960 

ON it(a,l)+l GOTO 3910,3970,3980 

[1448] 

3970 

iv=iv AND it(a,0):GOTO 3950 

[1384] 

3980 

iv=iv OR it{a,0):GOTO 3950 

[1580] 

3990 

1 

[117] 

4000 

' *** EQU-VÄLUE *** 

[1642] 

4010 

\ 

[117] 

4020 

fe=f:ev=0:zi=zo 

[689] 

4030 

f0=f 

[87] 

4040 

IF LEFTS(zi,l)=z0 THEN zi=RIGHTS(zi,L 

[2897] 

EN(2i)-l):G0T0 4040 


4050 

IF zi="" THEN RETURN 

[904] 

4060 

a=INSTR{zi,z0):IF a=0 THEN a=LEN{zi)+ 

[2756] 

4070 

za^LEFTS{zi,a-1):zi=RIGHTS(zi,LEN(zi) 

[3979] 

+l-a 



4080 

IF za="MOT" THEN fO=t:GOTO 4040 

[1629] 

4090 

IF za="0" THEN a=f:GOTO 4160 

[2024] 

4100 

IF za="-l" THEN a=t:GOTO 4160 

[494] 

4110 

IF ce=0 THEN RETURN 

[1842] 

4120 

b=-l:F0R a=0 TO ce-1 

[2316] 

4130 

IF eqS{a)=za THEN b=a;a=ce 

[2217] 

4140 

NEXT a:IF b=-l THEN RETURN 

[1967] 

4150 

a=eq(b) 

[638] 

4160 

IF fO THEN a=NOT a 

[1264] 

4170 

IF zi=SPÄCES(LEN(zi)) THEN fe=t;ev=a 

[3232] 

4180 

RETURN 

[555] 

4190 


[117] 

4200 

' *** SETUP *** 

[649] 

4210 

' 

[117] 

4220 

MODE 2 

[513] 

4230 

INK 0,24:INK 1,0:BORDER 24:PAPER 0:PE 

[1880] 

N 1 



Lisling Macro 



JOYCE SOFTWARE 

T»l,; 06726-9987 


MARTIN KEMP6NICH 
COMPUTER HARD- U. SOFTWARE 
ZETASTRASSE 13 
6220 RÜDESHEIM 4 




ADRE3SENVERUALTUNQ 

HAUSVERWALTUN6 

KFZ - ABRECHNUNG 

TERMINKALENDER 

FAHRTENBUCH 

IMOFOX 


1200/2400 Adressen DK . OO 

mit Grephik DM 5@. OO 

mit Verbauchena 1 yse DM 50. OO 
DM SO . O O 
DM SO . O O 

I ntfflob: 11 enverwal t, DM OO ■ OO 


/ 

A 


GRAPHOFOX 


Erstellen und Drucken von Balken- 
Kuchendlagrammen, dreldtaensienal, 
DIN A 4 Hardcopys. 

DM VO . OO 


Finanzbuchhaltung, 1000 Einträge, 
mit Bilanz, Ust,-Voranmeldung u.a. 

DM 2.00 . OO 


Branehensoftware für; 

- Zahntechnische Labore; 

- Schreinereien 


Versand Vorkasse oder Nachnahme -* 6 DM Vers4 
Infos anfordern / Händ1 eranfragen erwünscht 



HochstraBe 11 
8500 Nürnberg 80 
Tel.: 09 11 / 28 90 28 


PC-Zubehii 

PC 1640 MDiSD 


mil20 MByte Hardüisc 

PC 1512 MMSD 

2390,- 

mil 20 MByte Hardöisc 
ftnschlufttartig Ijt PC1512/1B40 

2190,- 

Hatddisc 20 MByte 

798- 

Filecard 20 MByte 

798- 

PC RAM Erweilerung 640K 

59,- 

ZweillautwEfk PC ab 

249- 

TURBOPASCAL PCI+SOB^CD) 

249- 

UTAH Cobol (deutsch) 

149- 

UTAH Fortran 

149- 

JOYSTICKCARD PC 

69, 

PC JOYSTICK 

DRUCKER: 

59- 

NEC P6 (deutsch) 

1148,- 

STAR NL lOtdeulschtOEM] 

579,- 

tomaddr. SDISfl 698, 

Drucker kadel 

f748,- 

29- 



CPC-ZUBEHOR: 

CPC 454 mil Grünmonilör 

398- 

Laufwerk DOM 

448- 

Paket CPC 464fSrün+DDl1 

m- 

CPO 454 Konsole 

279,- 

Monitor GT-65 

179,- 

Modulator MP2 

99,- 

ConlrollerDDH+Handb+CPIM 

69,- 

Aufrusl für VORTEX um 256K 

75,- 

TURSOPASCAL/Gialik 

259,- 

CPC/JOYCE-ZUBEHdR: 

MousePack CPC/JOVCE 228,- 

-/248- 

PANASONIC 3"Disketien 

69- 

MAXELL 3''0iskellen 

69,- 

TURBO PASCAL 

199,- 

NEVADA Fortran (deolsch) 

109- 

NevadaCobol (doulsch) 

JOYCE-ZUBEHÖR: 

109- 

RAM Erweilerung 512K 

80- 

NacnriistsaO (RAM+Lautw) 

598- 


Wir führen zu den Original-SCHNEIDER-Produkten Artikel verschiedener Firmen wie 
DATA BECKER, VORTEX, STAR-DIVISION, CUMANA, GERDES, PROFISOFT, ARIOLA, 
RUSH WARE, MARKT & TECHNIK, SYBEX, STAR, SCHNEIDER-DATA usw.I 


10’87 PC 49 








































I —Tips & Tricks 


4240 LOCATE 20,5:PRINT "** M A C R 0 **" [1861] 


4250 DEFREAL a-z:GOSÜB 4800 [2163] 

4260 DEFINT b-y:DEFSTR z [1372] 

4270 f=0:t=NOT f [699] 

4280 LOCATE 20,8:PRINT CHR$(18); [1626] 

4290 LINE INPUT "PROGRAMM:";za [2813] 

4300 a=INSTR( 2 a,".”):IF a=0 THEN a=LEN{za> [2225] 
+1 

4310 IF a>9 THEN a=9 [546] 

4320 20 =LEFT$(za,a-l) [1133] 

4330 LOCATE 29,8:PRINT CHRSdS) ;UPPER$(zo) [1472] 

4340 IF zo=za THEN 4420 [1521] 

4350 PRINT " (J/N) ...;CHR$(7) [1667] 

4360 za=INKEYS:IF za=’'" THEN 4360 [1575] 

4370 a*INSTR("YJN",ÜPPER$(za))+1 [1910] 

4380 ON a GOTO 4360,4420,4420,4280 [1342] 

4390 • [117] 

4400 ■ *** PARAMETER [1244] 

4410 • [117] 

4420 z0=" " [320] 

4430 zl="'” [322] 

4440 22=":" [484] 

4450 z3=”;" [736] 

4460 24="?;" [656] 

4470 z5="..." [628] 

4480 z6=CHR$(9) [1069] 

4490 z7=":+-*/, <>"+20+z6 [1786] 

4500 z8="NOT.NUL.AND.OR.[1012] 
4510 2q=SPACES(43) [1628] 

4520 zlib=".LIB" [745] 

4530 2 sour=".MAC" [809] 

4540 zdest=".ÄSM" [1020] 

4550 zdrO="A:":’ORIGINALPROGRAMM-LAUFNERK [2930] 
4560 zdrl="A:":'ASM-PROGRAMM-LAUrVERK [1701] 

4570 zdr2="Ä:";’KACLIB-LAUFHERK [2881] 

4580 ' [117] 

4590 DIM eq(49),eqS(49) [966] 

4600 DIM fl(199),fl$(199) [1162] 

4610 DIM ma$(99.2) [460] 

4620 DIM ais(49,5) ,iqs$(49) [1197] 

4630 DIM va${99,l) [659] 

4640 DIM laS(99,l) [568] 

4650 DIM is(199,l) [827] 

4660 DIM it(19.1) [519] 

4670 DIM er$(8) [667] 

4680 • [117] 

4690 FOR a=0 TO 8 [756] 

4700 READ er$(a) [911] 

4710 NEXT a [383] 

4720 ■ [117] 

4730 zo=UPPER${2o) [1114] 

4740 source$=zdrO+zo-fzsour [2271] 

4750 destin$=zdrl+zo+ 2 dest [1308] 

4760 RETURN [555] 

4770 ' [117] 

4780 ’*** LINKER *** [1108] 

4790 • [117] 

4800 ■ [117] 

4805 ON ERROR GOTO 4820 [1622] 

4810 2 p="":!GETZP,«zp:ON ERROR GOTO 0:RETU [2527] 
RN 

4820 RESUHE 4830 [673] 

4830 ON ERROR GOTO 0:s=0 [1512] 

4840 READ d:s=s4-d [541] 

4850 MEMORY HIMEM-d-1 [302] 

4860 c»HIMEM+l:b=c [1939] 

4870 READ a:s=s-»-a [468] 

4880 IF a=-l THEN 4910 [1167] 

4890 POKE b,a:b=b+l [530] 

4900 GOTO 4870 [405] 

4910 READ f0:s»s+f0 [373] 

Listlng Macro 


4920 IF f0=0 THEN RETURN [1523] 

4930 FOR a=l TO fO [716] 

4940 READ b:READ fl:s=s+b+fl [976] 

4950 fl=fl+c [537] 

4960 d»INT(f1/256):POKE b+c,{£l-d*256) [1446] 

4970 POKE b+c4-l,d [764] 

4980 NEXT a [383] 

4990 IF S026834 THEN PRINT . .DATA-Fehle [3694] 
r !":STOP 

5000 CALL c [112] 

5010 ■ [117] 

5020 ' [117] 

5030 RETURN [555] 

5040 ’ [117] 

5050 ' **» FEHLER *** [1262] 

5060 • [117] 

5070 PRINT CHRS(7) [1045] 

5080 zx=er$(er) [970] 

5090 a=INSTR(zx,"f") [1080] 

5100 IF a>0 THEN 2 X=LEFTS( 2 X,a-l)+ 2 a+RIGHT [3705] 
$(zx,LEN(zx)-a} 

5110 PRINT 25;2x:PRINT z;CHR$(7) [2850] 

5120 ern=ern+l [551] 

5130 RETURN [555] 

5140 ' [117] 

5150 ■ *** DATAS *** [1083] 

5160 • [117] 

5270 DATA 234,33,28,0.1,9,0,195,209,188 [1387] 

5280 DATA 17,0,195,32,0,195,93,0,71,69 [1589] 

5290 DATA 84,90,208,83,69,84,90,208,0,0 [818] 

5300 DATA 0,0,0,221,102,1,221,110,0,126 [1429] 

5310 DATA 254,43,192,35,94,35,86,237,75,12 [1927] 
5 

5320 DATA 190,33,21,0,9,197,237,160,35,35 [1513] 

5330 DATA 1,20,0,237,176,193,33,80,0,9 [1411] 

5340 DATA 1,5,0,237,176,1,16,0,9,1 [1096] 

5350 DATA 12,0,237,176,1,36,0,9,1,5 [1129] 


5360 DATA 0,237,176,201,205,205,0,221,102, [2187] 
1 

5370 DATA 221,110,0,126,254,43,192,253,229 [2607] 
,253 

5380 DATA 42,125,190,35,94,35,86,205,150,0 [1778] 
5390 DATA 213,253,229,209,33,41,0,25,213,9 [2110] 

4 

5400 DATA 35,86,27,123,230,240,43,119,35,1 [1828] 
14 

5410 DATA 209,205.203,207,209,205,150,0,25 [1660] 
3,225 

5420 DATA 201,213,253,229,193,33,21,0,9,23 [1973] 

5 

5430 DATA 197,237,160,19,19.1,20,0,237,176 [1780] 


5440 DATA 235,193,33,80,0,9,235,1,5,0 [1218] 

5450 DATA 237,176,235,1,16,0,9,235,1,12 [1183] 

5460 DATA 0,237,176,235,1,36,0,9,235,1 [1467] 

5470 DATA 5,0,237,176,209,201,34,224,0,33 [1408] 

5480 DATA 226,0,227,229,42,224,0,197,14.7 [1026] 

5490 DATA 205,15,18'5,193,201,0,0,197,14,0 [2133] 

5500 DATA 205,15,185,193,201,-1,11,1,28,4 [1908] 

5510 DATA 9,9,17,12,32,15,93,94,205,117 [1026] 

5520 DATA 150,145,150,206,224,209,226,214, [1838] 
224 

5530 [117] 

10000 DATA "MACLIB-Anweisung fehlt !" [3871] 

10010 DATA "ENDM fehlt !" [851] 

10020 DATA "ENDIF fehlt I" [993] 

10030 DATA "Fehler in IF-Anweisung l" [3046] 

10040 DATA "ENDIF ohne IF !" [1796] 

10050 DATA "ELSE ohne IF l" [1515] 

10060 DATA "EQUate « nicht definiert !" [3028] 

10070 DATA "FLAG » nicht definiert !" [1983] 

10080 DATA "Lokale Variable • nicht defini [2398] 
ert •!" 
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s 

02366 

35017 



Ewaldstraße 181 • 4352 Herten 

Ladenzeiten+Versandtelefon: 
mo-fr: 10.00-18.00 Uhr • sa: 10.00-13.00 Uhr 


S 

02366 

35017 


Anschlußfertige Drucker für Ihren Schneider 


Star NL 10 m. Schnittst. 

nur DM 548:- 

Citizen 120 D 

nur DM 448“ 


PeaCock-Drucker 


(baugleich Panasonic) 

D1012A 598:- 

D1016 648:- 

D1018 779r- 

D1518(^) 11697- 

D1524(;^) 1558r- 


PeaCock/Panasonic Farbbänder 
Stück 21.50/3 Stück ä 18.90 


NL 10 Farbb. 18.90/3 SL ä 16.90 


Disketten 3” 
Maxei CF 2 

10 stück nur 62:-!! 
ab 50 Stück nur 59.90!! 


51/4” Disketten 

(ä 10 Stück) 


MD1D 8.80/100 st. 

84r- 

MD2D 9.80/100 st. 

94r- 

MD2D 14.90/100 st. 

96TPI 

12.90 

NASHUA MD1D 

19r-/100St 

17.90 

Panasonic MD1D 

19r-/100St. 

17.90 


Disk-Box 51/4” für 100 St 
nur 13.90 


Finanzierungsmöglichkett! 


NEC P6 1.048:- 

NEC P6 Color 1.389r- 
NEC P7 1.398:- 


P6-Uni-Traktor 

145:- 

P6-Bi-Traktor 

339:- 

P6-Einzelblatteinzug 

629:- 

P7-Uni-Traktor 

219:- 

P7-Bi-Traktor 

369:- 

P7-Einzelblatteinzug 

829:- 

Dnjckerständer 

27.90 

IBM-Centronics-Kabel 22.90 

Farbband P6 

18.90 

3 Stück ä 16.90 

Farbband P7 

28.00 

3 Stück ä 26.90 

Citizen Fari^band 

11.90 

3 Stück ä 10.50 

Joysticks für Schneider 

• Competition Pro 

24.90 

• Competition Pro 

36.90 

transparent 


• Komix Speed King 24.90 

• CPC-Mouse 

78.00 


Große CPC-Spiele- 
Auswahl (Disk+Cass.) 
vorhanden! 


• Auslandsvers. gegen Vork. 

• Mindestbestellwert DM 40:- 

• Bei Finanzierung bitte @ 

• Auf alte Geräte 

1 Jahr Garantie! 


Autorisierter 
Fachhändier 
für STAR-DIVISION 

• STAR-WRITER PC 389:- 

• FIBU-STARPC 

-Version 1.0 389:- 
- Version 2,0 589:- 

• BUSINESS-STAR PC 489:- 

• Kontobiätterfür 

FIBU-STAR 49.90 

FIBU-STAR-PLUS^^^ 
(JOYCE) 289:- 

BUSINESS-STAR^^^ 
(JOYCE) 289:- 

JOYCE-MAILLING- 
SYSTEM 189:- 


STAR-DIVISION für CPC 

• Composer-Star 89:- 

• Star-Writerl 

189:- 

• Fibu-Star-Plus 

289:- 

• M.O.S. 

89:- 

• Datei-Star 

89:- 

• Statistic-Star 

78.90 

• Copy-Starll 

38.90 

• Designer-Star 38.90 

• Creator-Star 

48.90 

• Mathe-Star 

78.90 

• Star-Mon 

78.90 

• Color-Star- 
Plus 

38.60 

Große CPC-Spiele-Auswahl 

(Disk + Cass.j 


PVC-Abdeckhauben (JOYCE) 


Tastatur 11:- 
Drucker 23.90 


Monitor 28.90 
kompl. 59:- 


















































r~Tips & Tricks 


RSX-compiler 

Es gibt heute für viele Programmiersprachen Interpreter 
und Compiler. Ein Interpreter übersetzt w^end eintö Pro- 
grammablauf^ ZeUe für Zeile, während ein Compiler die¬ 
ses nur ein einziges Mal vor der Programmausführung 
durchführt. 

Da dieses bei letzterem nur einmal und nicht ständig ge¬ 
schieht, wird Arbeit eingespart und somit der Programm¬ 
ablauf (meistens) schneller wird und/oder der benötigte 
Speicherplatz verringert sich. Hier soll es jedoch nicht um 
einen kompletten BASIC-Compiler gehen, dies würde den 
Umfang des Heftes sprengen, sondern nur um einen RSX- 
Compiler. 

Was bewirkt nun ein RSX-Compiler und wozu ist er überhaupt 
zu gebrauchen? Aus dem Namen geht schon zweierlei hervor: 
Erstens: er hat etwas mit den ziemlich einmaligen RSX-Befeh- 
len der Schneider CPC’s zu tun und läuft folglich nur auf 
diesen! 

Zweitens: er übersetzt etwas — worauf mit dem Wort »Com¬ 
piler« hingewiesen wird. 

Punkt 1 war sicherlich für Sie von Anfang an klar. Bei dem 
zweiten Namensteil stellt sich jedoch die Frage »Was wird denn 
hier eigentlich übersetzt?« 

Um diese Frage zu beantworten, müssen wir erst einen kurzen 
Abstecher zum Programmablauf bei den RSX-Befehlen ma¬ 
chen, damit Dinen auch der Sinn deutlich wird. 

Normale BASIC-Befehle und Sprungadressen werden bereits 
durch eine compilemde Eigenschaft des Locomotive Interpre¬ 
ters in sogenannte Token (Befehls-Kennzeichen) oder (RAM-) 
Adressen übersetzt. RSX-Kommandos werden allerdings nicht 
verändert und bleiben in ihrer ASCII-Darstellung im Speicher 
erhalten. Trifft der Interpreter während der Abarbeitung eines 
Programmes auf einen RSX-Befehl, so werden die (eventuel¬ 
len) Parameter gelesen und dann an die RSX-Routine (m M- 
Code) übergeben. Um letzteres zu können, muß vor der Über¬ 
gabe jedoch die Adresse des Befehles (im RAM oder ROM) be¬ 
stimmt werden. Je nach der Länge der Befehls-Namen und der 
Anzahl der vorhandenen RSX-Namen kann dies jedoch eine 
nicht unbeträchtliche Zeit in Anspruch nehmen. Wenn z.B. 100 
oder mehr Befehle verwaltet werden, wie dies bei einigen Er¬ 
weiterungen (z.B. Profi RSX) der Fall ist, und der Befehl ei¬ 
ner der ersten Eintragungen ist, müssen vor diesem ca. 100 Be¬ 
fehle Buchstabe für Buchstabe verglichen werden. 

Anm.: Die Befehle, die zuerst initialisiert werden, werden als 
“letzte“ gefunden, da die Firmware des CPC die Tabelle der 
Eintragungen »von hinten« an vergleicht! Zeitkritische Anwen¬ 
dungen, wie Sprites oder Ein-/Ausgaben, können dadurch be¬ 
schränkt oder gar unmöglich werden. Diesen Nachteil der RSX- 
Befehlehatz.B. derBASIC-Befehl»CALLadr«sse« nicht. Zu¬ 
dem ist er auch kürzer (Speicherplatz!). Wenn wir noch berück¬ 
sichtigen, daß 

a) RSX-Befehle (in der Regel) ihre Adresse nicht verändern und 

b) eine völlige Parameter-Kompatibilität zwischen RSX- und 
CALL-Befehlen besteht, dann steht fest, was zu tun ist: RSX- 
Befehle (nachdem das Programm fertig ist) durch CALL-Be- 
fehle ersetzen. 

Doch voher erfahren Sie die Adresse eines Befehles. BASIC 
scheidet hier aus. Die Programm-Dokumentationen in 99% der 
Fälle auch. Einen Disassembler einsetzen? — Viel zu aufwen¬ 
dig. Und Sie möchten die Arbeit doch wohl auch nicht »von 
Hand« erledigen? Bleibt nur noch eines: überlassen Sie die Ar¬ 
beit Ihrem CPC (wozu hat^n Sie auch sonst einen Con^uter?!)! 
Der nachfolgend abgedruckte RSX-Compiler ersetzt alle (oder 
nur einzelne Befehle) durch CALL-BefeWe. Das Programm an 


sich ist recht kurz und erfordert nur noch ein Diskettenlaufwerk 
mit dem zu bearbeitenden Programm auf Diskette. Der Nachteil 
eines compilerten Programmes liegt ebenso wie die Vorteile 
auf der Hand: ziemlich unübersichthch. Aber da ein Programm 
erst nach seiner Fertigstellung compilert werden sollte und jeder 
vernünftige Programmierer natürlich die Ur-Version zur Vor¬ 
sicht behält, kann dieses ignoriert werden. Außerdem schüt¬ 
zen Sie es so vor dritten, die mit den CALL-Befehlen nicht viel 
anfangen können. 


Noch kurz zum Programm 


Dieses übersetzt alle RSX-Befehle, jedoch keine im ROM ent¬ 
haltene Konunandos (wie die Disk-RSX-Befehle). Letztere sind 
laut Schneider auch keine RSX-Befehle im eigentlichen Sinne 
(vergl. Schneider Firmware-Handbuch (Soft 258)). Im Gegen¬ 
satz zum Basic ist der Compiler jedoch in der Lage, alle RSX- 
Befehle zu verarbeiten, sofern diese keine Leerzeichen, Dop¬ 
pelpunkte, REM-Kennzeichen oder ein chr$(13) enthalten. .An¬ 
sonsten können alle Zeichen enthalten sein. Die Übersetzung 
an sich kann entweder komplett (xier »Befehl für Befehl« erfol¬ 
gen. Mit letzterem können Sie zwischen den Befehlen selek¬ 
tieren und nur die von Ihnen gewünschten übersetzen lassen. 
Damit Sie nachher noch einen Überblick haben, welcher 
CALL-Befehl ursprünglich welchem RSX-Kommando entspo¬ 
chen hat, läßt sich auf Ihrem Drucker (sofern vorhanden) ein 
Protokoll anfertigen, auf dem diese einander gegenübergestellt 
werden. 

Programme werden grundsätzlich von der Diskette aus über¬ 
setzt, eine RAM-Compilerung ist nicht möglich. Dadurch er¬ 
gibt sich der Vorteil, daß die Länge der Programme praktisch 
unbegrenzt ist und nur von der Disketten-Kapazität abhängt. 

Die Programme müssen allerdings als ASCU-Files vorlie¬ 
gen (erreichbar durch »SAVE“NAME“,A«). Nach Abschluß 
liegt das neue Programm ebenfalls als ASCII-FÜe vor, es läßt 
sich jedoch problemlos laden. Allerdings kann es in sehr sel¬ 
tenen Fällen Vorkommen, daß hierbei die Fehlermeldung »Line 
too long« auftaucht. Dies ist immer dann der Fall, wenn die ur¬ 
sprüngliche Zeile eine Länge von fast 255 Zeichen hatte. Da 
jedoch CALL-Befehle zusammen mit der Adresse im ASCII- 
Format etwas länger als die meisten RSX-Kommandos sind, 
kann die neue Zeile länger als eben die »magischen« 255 Zei¬ 
chen werden. Dieses gilt jedoch nur für das ASCÜ-Format. Im 
BASIC- Format sind alle CALL-Befehle kürzer als die RSX- 
Befehle. Ein übersetztes Programm benötigt also immer we¬ 
niger Speicherplatz als die erste Version. Falls obiger Fehler 
auftauchen sollte, so teilen Sie die Zeile einfach in 2 Zeilen auf. 
Welche Zeile betroffen ist, können Sie mit »LIST« ermitteln. 
Im übrigen lassen sich keine Initalisierungs-Namen von ROM’s 
(z.B. IBASIC) bearbeiten. Trifft der Compiler auf ein solches 
Kommando, so springt er sofort ohne Vorwarnung in das ROM 
— und kehrt nie mehr zurück. Dies ist durch das Betriebssy¬ 
stem vorgegeben und läßt sich nicht ändern. Ansonsten dürf¬ 
ten jedoch keine Fehler auftreten. 

Erweiterungen müssen natürlich vor dem Übersetzen in den 
Speicher geladen werden — eigenlich klar, oder? Und nach dem 
Übersetzen ebenfalls immer an die gleiche Stelle, sonst stürzt 
der CPC mit nahezu 100% Sicherheit irgendwann ab. 

Und was jetzt? Natürlich RSX-Erweiterung laden (falls nicht 
vorhanden, sofort zu Profi RSX weiterblältern), Programm 
schreiben oder laden und Compilern. Viel Spaß und Erfolg! 

(K. Kremer) 
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für 464-664-6128 


10 •- [37931 


20 ■ [117] 

30' RSX-GOU [680] 

P I L E R 

40 ■ [117] 

50 ■////////////////////////////////////// [3781] 
///////////////////////////////////// 

60 ’ [117] 

70 ' Idee & Programaierune & Copyrlgh [2686] 

t (c) 6/1987 by Klaus Kreiser 

80 ’ [117] 

90 ■////////////////////////////////////// [3684] 


//////////////////////////////////// 

100 ' [117] 

110 ' fuer SCHNEIDER/ AySTR [1924] 

AD CPC 464/664/6128 

120 • [117] 

130 •- [3711] 


140 • [117] 

150 'Bitte lesen Sie zur Anwendung den Beg [6731] 
leitartikel in der Zeitschrift 

160 ' [117] 

170 WIDTH 255:yODE 2 [946] 

180 ■ [117] 

190 * KOPFZEILE * • • • • [955] 

200 ■ [117] 

210 WINDOW»!,1.40.1.3:WINDOW»2.41.80.1,3:1 [7076] 
INDOW«0,1.80,6.19:WINDOW»6,l.80.20.20;WIND 
OW»7,1.80,2Z.25 

220 GOSUB 1050 [817] 

230 PAPER#1.0:CLS»1:PEN#1.1:PRINT#1.CHR$(1 [12762] 
50)+STRINGS(36.CHR$(152))4CHRS(156):PRINT» 

1, CHRS (14 9) -fSPACES ( 36 ) 4CHBS (149);PRINT»! , C 
HRS(147)+STRING$(10.CHR»(152))+" "+CHR*(16 


Llsting RSX-Compller 


AUFSTEIGER TRANSFERIEREN DATEIEN DURCH DAS 
VORTEX MULTI-CHANGE-COPY^YSTEM. 

DOSCOPY 

9*.-DM. 


PARA 3.0 


149,- DH. 




rfif:.-'!: 


PARA PLUS 

199,- DM. 


i' 



M-^V]; . /jf ^ 


w. 



Kl 



J 

1 




& 

■ 


DOSCOPY 
PARA 3.0 
PARA PLUS 
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4)+” by K. Kremer "tSTRINGS(10.CHRS(152))+ 


CHRS(153); 

240 PEN#l.l:LOCATE#1.8,2:PRINT#l.‘'R S X - [2344] 

C O II P I L E R" 

250 PRINT#6,"* [5220] 

System-Ileldungen: «•»•«$«•«$» 

* t • a a"; 

260 • [117] 


270 LOCATE 2.2:PRINT"Bitte geben Sie den N [8065] 
amen des zu copilierenden BASIC-Programmes 
ein!":INPUT” ".namelS 

260 PRINT" Unter «eichen Namen soll das Pr [8917] 
ogramm anschliessend abgespeichert werden? 

INPUT " •■,name2$ 

290 CLS:LOCATE 2,4:PRINT" Bitte waehlen Si [3730] 
e aus: " 

300 LOCATE #0.20.6:PRINT"! - komplette Ueb [8143] 
ersetzuDg'':LOCATE«0.20.8;PRINT''2 - Einzels 
chritt" 

310 PRINTiINPUT" Ihre Wahl";modusX:IF modu [4060] 
s%<l OR modusX>2 THEN PRINT CHR$(7):GOTO 2 
90 

320 PRINT:INPUT" Wuenscben Sie eine Protok [7922] 
ollierung auf dem Drucker (j/n)druckt:IF 
UPPEB$(druckS)="J" THEN dXsl ELSE dX=0 
330 CLS:PRINT" Legen Sie nun bitte die Dis [7702] 
kette ein und druecken Sie anschliessend e 
ine Toste I" 

340 IF INKEY$="" THEN 340:CLS #0 [657] 

350 CLS:z$c"a apolgende Befehle wurden ueb [13131] 
ersetzt: * * Ihre RAU-Adresse: a t a a a t 
a a a a"+STRlNG$(80PRINT x$:IF dX=l 
THEN PRINT#8."RSX-Compiler Version 1.0 (( 
c] 1987 by K.Kremer)":PRINT#8;PRINT#8.x$ 

360 WINDOW#0.1.80,8.13:«1NDOW#3.1.80.15,18 [2874] 
370 PRINT#3."« aaaaaaaaaaaaao [5259] 
erade bearbeitete Zeile: aaaaaaaaa 
a a a a";wiNDOW#3.1.80.16.18 
380 ' [117] 

390 'a a a a HC-Routinen (in Strings abgel [2851] 
egt) a a a a 

400 ■ [117] 

410 *UC-Routine zum Einlesen eines Zeichen [4676] 
s aus einer Eingabe-Datei 

420 routinel$=CHR$(iDD)+CHR$(fcE5)+CHR$(&CD [11454] 
) -t-CHRS (&80) tCHRS (&BC) tCHRt < ADD) f CHR$ (&E1) + 

CHR$(AE)tCHRt(AO)+CHR$(A38)+CHBS(A3)+CHRS( 

AAF)tCHRS(AE)+CHRS(Al)+CHBS(ADD)+CHR$(A6E) 
tCHRS(AO)tCHRS(ADD)tCHRS(A66)+CHRS(Al)+CHR 
S (A7 7 ) +CHRS (A2 3 ) -t-CHR$ (A71) -t-CHRS (AC9) 

430 ' [117] 

440 'HC-Routine zur Berechnung der Adresse [4296] 
eines RSX-Befehles 

450 routine2$=CHRS(AFE)+CHB$(Ä2)+CHR$(AC0) [12476] 
+CHRt (ADD) tCHRS (A6E) tCHRS (A2 ) -fCHRS (ADD) +CH 
RS(A66)tCHRS(A3)tCHRS(A7E)tCHRS(AB7)+CHRS( 
A2B>-fCHR$(A16)4CHRS(A23)+CHRS(ASE)+CHRS(A2 
3)4CHRS < AS6)tCHRS(AD5)+CHRS(A26)+CHRS(AO) + 
CHRS(A6F)+CHR$(A20) 

460 routine2$ = routine2$4CHRS(A19)-fCHRS(ACB [8974] 

)+CHRS(AFE)+CHRS(AE3)+CHRS < ACD)tCHRS(AD4)t 
CHRS < ABC)tCHRS(AEB)tCHRS(AEl)tCHRS(ACB)tCH 
RS(ABE)+CHR$(A36}+CHRS(A5)+CHRS(A11)+CHRS( 
A0)+CHRS(A0) 

470 routineZ$=routine2S+CHRS(A18)tCHRS(A8) [10425] 
tCHRS(A79)tCHRS(AFE)tCHRS(AFF)tCHRS(A28)tC 
HRS(A3)tCHRS(All)tCHRS(AFF)tCHRS(AFF)tCHRS 
(ADD}tCHRS(A6E)tCHRS(AO)tCHRS(ADD)tCHRS(A6 
6)tCHRS(Al)tCHRS(A73)tCHRS(Ä23)tCHRS(A72)t 
CHRS(AC9) 


480 ■ [117] 

490 ’a a a a Dateien eroeffnen a a a a [783] 

500 • [117] 

510 OPENIN namelS [1142] 

520 OPENOUT nameZS [681] 

530 • [117] 

540 kanalX=9:WlDTH 80 [747] 

550 rsxS=CHR${124):cS="call":leerSs" " [2632] 

560 ' [117] 

570 ’a a a a Programm-Zeile in Variable ze [2773] 

ileS einiesen a a a a 

580 ' [117] 

590 adressel=PEEK(«routinel$tl)t2S6>PEEK(8 [3049] 
routinelStZ):wertX=0 

600 CALL adressel.8wertX [1457] 

610 IF wertX=256 THEN 960 [797] 

620 zeileSszeileStCHRS(wertX) [1379] 


Liating RSX-Compller 


630 IF wertXOlS THEN 590 [1097] 

640 CLS #3:PRINT#3,zeileS [720] 

650 ■ [117] 

660 'a a a a RSX-Namen im String zeileS su [1379] 
chen a a a a 

870 ■ [117] 

680 pos0X=l [245] 

690 poslX=INSTR(posOX.zeileS,rsxS) [1773] 

700 IF poslXOO THEN 740 [730] 

710 'Programm-Zeile (ohne RSX-Befehl(e)) a [2459] 
usgeben 

720 FOB iX=l TO LEN(zeileS):PRINT SkanalX, [5606] 

MlDS(zeileS,iX,1)!:NEXT: 2 eile$="":GOTO 590 

730 ■ [117] 


740 FOR 1X=1 TO posIX-1:PRINT SkanalX.MIDS [4625] 
(zeileS.iX,1);:NEXT 

750 IF MIDS(zeile$.POSlXtl,l)=CHR$(13) THE [2079] 
N 1040 

760 FOR iXsposlXtl TO LEN(zeileS):x$=MID$( [2967] 
zeileS,iX,1) 

770 IF x$=” " OR xSs"." OH xS=. OR xS=": [6216] 

" OR x$=CHR$(13) THEN 810 ELSE NEXT 


780 • tll7] 

790 -a a a a RSX-Befehl durch einen CALL-B [2396] 
efehl ersetzen a a $ a 

900 ’ [117] 

810 rsxnaroe$=MIDS(zeileS,poslXtl,iX-(poslX [3889] 
tl)):adresse2=PEEK(8routine2$tl)t256*PEEK( 

8routine2$t2) 

820 IF modusXal THEN 850 [952] 

830 fehler$=STRING$( 14 . )t” Uebersetzon [4475] 

(j/n)? "tSTRING$(14."-"):GOSUB 1020 
840 IF UPPEBS(anS)<>"J" THEN 880 [1355] 

850 BdrX::0:CALL adresse2 .drsxnameS .8adrX [1900] 
860 IF adrXOAFFFF THEN 870 ELSE fehler$ = " [7636] 
Dieser Befehl steht in einem ROM und kann 
daher nicht uebersetzt werden!":GOSUB 1020 
:GOTO 880 

870 IF adrXOO THEN 890 ELSE fehlerS = " [6241] 


Dieser Befehl wurde nicht gefunden!":GOS 
UB 1020 

880 FOH i2X=poslX TO iX:PRINT#kanalX,MIDS{ [5478] 
zeileS.i2X,l);:NEXT:zeileS=MIDS(zeileS.iXt 
l):GOTO 680 

890 ad$=HEXS(adrX):IF SGN(adrX)=-l THEN ad [1916] 
2=65356-A6S(adrX) 

900 PRINT rsxname$.ad2;" (Ä"tadSt")".:IF [3897] 
dXsl THEN PRINT#8.rsxnaffleS.ad2;" (A"tad$t 


910 zeileS=MIDS(zeile$.iX) [1903] 

920 c2S=cSt" A"tad$:FOB iX=l TO LEN(c2S):P [3895] 

RINT »kanalX.MID$(c2$.iX.l);:NEXT:GOTO 680 
930 ■ [117] 

940 ’a a a a Programm-Ende a a a a [1410] 

950 ■ [117] 


960 CLOSEIN:CLOSEOUT:MODE 1:WINDOW*2.1.80. [13916] 
l,3;GOSUB 1050:PEN 3:LOCATE 1.8:PRINT"Comp 
ilierung von":PEN 2:PRINTiPRINT na«el$:PRI 
NT:PEN 3:PRINT"in":PRINT::PEN 2:PRINT name 
2S:PRINT:PEN 3:PRINT"abgeschlossen!":PRINT 
970 IF dX=l THEN PRINTSS:WIDTH 255:PRINT#8 [16369] 
.STRINGS(80."-"):PBINTSS."Ausgangs-Program 
m: “;namelS;PRINT#8,"Uebersetztes Programm 
":name2$:PRINT#8:PRINT*8,"»* Kompilierun 
g abgeschlossen!**" 

980 END [110] 

990 • [117] 

1000 ’a a a a Fehlermeldung ausgeben a a a [2008] 

a 

1010 ’ [117] 

1020 CLS47:PRINT#7.CHR$(7)t’’ "tCHRS(124)tr [8676] 

sxnameS:PHINT#7:PRINT»7.fehlerS:PRINT47. 

- Bitte Taste zur Bestaetigung druecken 

1030 an$=INKEYS:IF BnS="" THEN 1030 ELSE R [1462] 
ETÜRN 

1040 fehlerS="ACHTUNG: Dem RSX-Kennzeichen [5376] 
folgt kein Befehlsname!“:GOTO 1020 
1050 PAPER#2.3:CLS#2:PEN#2,2:PRINT#2.CHR$( [12974] 
150)tSTBINGS(36,CHR$(152))tCHRS(156):PRINT 
*2.CHRS(149)tSPACES(36)tCHRS(149):PR1NT42. 

CHRS (147)tSTHINGS( 10.CHRS(152 ) )f’ ’’tCHRS(1 
64)t" by K. Kremer "tSTRINGS(10.CHRS(152)) 
tCHRS(153)■ 

1060 PEN#2!2:L0CATE*2,8.2:PRINT#2,"R S X - [2830] 
COMPILER" 

1070 RETURN [555] 

Listing R'SX-Compiler 
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Mikrocad 

Hier handelt es sich um ein Programm, mit welchem man 
dreidimensionale Körper zeichnen lassen kann. Und dar¬ 
über hinaus drehen um alle drei Achsen, sowie schieben in 
alle Richtungen. Außerdem ist es auch noch möglich, sich 
die ganzen Körper in drei verschiedene Darstellungsarten 
anzuschauen. 

— Zentralperspektive 

— Parallelprojektion 

— ohne Perspektive 

Anwendungen 

— Interessante Einladungskarten anfertigen (Überschrift in 
fetzigem 3D) 

— sich faszinieren lassen und Bild als Hardcopy aufhängen 

— 3D Objekte von allen Seiten betrachten, z.B. können Sie vor¬ 
ausplanen, wie Sie Ihr neues Wohnzimmer gestalten! 

Anleitungen 

Als erstes müssen einmal Eckpunkte angegeben werden (sie¬ 
he Beispiel: Pyramide und Datazeilen). Dann die Linien. Je¬ 
dem Eckpunkt ordnet man neben den Koordinaten x,y und z 
eine Nummer zu, bei einer Linie muß man die Nummer des An¬ 
fangsendpunktes und die Nummer des Endeckpunktes angeben. 
Das ganze geschieht in DATA-Zeilen und diese müssen im Be¬ 
reich von Zeilennummer 90 bis 500 liegen. 

Beispiel: Pyramide 

90DATA 1,100,-100,100.2,-100,-100.100,3.-100,-100,-100 
100 DATA 4,100,-100,-100,5,0,100,0 
110 DATA-1 

120 DATA 1,2,2,3,3,4,4,1,1,6,2.5, 3,5,4,5 
130 DATA-1,-1 

Wie Sie sehen, muß die Eingabe von Punkten mit -1, die von 
Linien mit -l ,-l abgeschlossen werden. Ab Zeile 510 muß das 
Ablaufprogramm ^r die Bewegung stehen. Pro Kommando 
werden drei Zahlen verlangt. Die erste ist die Art der Bewe¬ 
gung: 

1: Schiebe auf x-Achse 
2: Schiebe auf y-Achse 
3: Schiebe auf z-Achse 
4: Rotiere um z-Achse 


für 464-664-6128 



10 GOTO 1000 [339] 

20 GOSUB 30 :njc = c«x-s*y :ny=s*x+c*y : x=nx ; y=n [2473] 
y:RETURN 

30 c=COS<w):s=SIN{w):BETURN [2600] 

40 GOSUB 30:ny=c«y-s*z:nz=s*y+c*z;y=ny:z=n [3714] 
z:RETURN 

50 GOSUB 30:nzsc•z-s*x;nx=s*z+c»X:x=nx;z=n [2586] 
z;RETURN 


60 zl = f-z :x= (x/zl) »f+nix:y=(y/zl > »f+my iRETU [2599] 
RN 

70 x=(x+z/2)+oix:y={y+z/2)+iny; RETURN [2351 ] 

80 xsDXtx ; y=iDy+y :EETURN [1403] 

100 DATA 1,100,100.100,2,-100.100,100.3.-1 [2744] 
00.100.-100,4.100.100.-100 

110 DATA 5.100,-100.100.6,-100,-100,100.7. [3018] 
- 100 ,- 100 .- 100 . 8 . 100 .- 100,-100 

111 DATA 9.100,-80.100. 10.30,-80.100, 11, [2480] 
30,-100.100, 12,30.-100.-10 

112 DATA 13,30,-00,-10, 14,100,-80,-10, 15 [2434] 
. 100 ,- 100,-10 

113 DATA 16,0,100.0, 17,0,70,0, 18.40.50,4 [2475] 
0, 19.40.50,-40 

114 DATA 20.-40,50.-40. 21.-40,50.40 [1928] 

120 DATA -1 [199] 

130 DATA 1 , 2.2.3.3,4.4.1 .1.5,5.6.6.7,7.8.8 [2164] 
,4,2.6.3,7,8.5 

140 DATA 9,10.10.11,11,12.12,13,13.14.14.1 [2451] 
5,15,12,10,13,9.14 

150 DATA 16.17,18.19.19,20,20.21,21.18.17. [2634] 
18.17,19,17,20.17.21,-1,-1 



5: Rotiere um x-Achse 
6: Rotiere um y-Achse 

Die zweite zeigt an, wie weitderComputer schieben,bzw. um 
wieviel Grad er rotieren soll. Diese Z^l muß immer POSITIV 
sein! Die dritte zeigt nun, wie groß die einzelnen Schritte zum 
Ziel sein sollen. Abgeschlossen wird mit -1 bzw. -2. Tippt man 
-1, so fangt der Computer automatisch bei Zeile 510 wieder an. 
-2 bedeutet Programmabbruch. 

Nach dem Starten des Programmes, wird der Fluchtpunkt ab¬ 
gefragt. je kleiner dieser ist, desto extremer ist das Bild ver¬ 
zerrt (beider Demo, die schon im Programm enthalten ist, ist 
der Wert 300 am besten geeignet). Dies gilt aber nur, wenn man 
auf die nächste Frage nach der Projektionsart 1 eingetippt hat: 
1: Zentralperspektive 
2: Parallelprojektion 
3: ohne Perspektive 

Das Programm ist nicht gegen Falscheingaben geschützt ;Es 
kann Vorkommen, nachdem das Programm durchgelaufen ist 
und Sie mit Diskette/Kassette operieren wollen, zu einem ME¬ 
MORY FULL kommt. In diesem Falle ändern Sie einfach die 
Werte von folgenden Variablen.In der Variable “zl“ steht, wie¬ 
viele Linien benutzt wurden, “zp“ zeigt auf die Anzahl der 
Punkte. Setzen Sie nun diese Werte in die DIM-Anweisung in 
Zeile lOlOein, wobei die Variablen x,y,z,xp und yp den Wert 
von “zp“ bekommen, la und le den von “zl“ .(j Köplingcr/CD) 


510 DATA 4.270,18,5,270.18,6,270,18.1.150, 
-50,3,400,-50.1,150,50,3,400.50,-1 

[3122] 

1000 DEG:DEFINT 1 

[1102] 

1010 DIM x(lOOO) .y(lOOO) .z( 1000) , la(3000). 
le(3000),xp(1000l.yp(lOOO) 

[2914] 

1020 INK 0.0;INK 1,26:BOEDER 3:PAPER 0;PEN 
1:MODE 2 

[1224] 

1030 INPUT "Fluchtpunkt: ".f 

[1808] 

1040 INPÜT "Projektion; ".pro 

[1794] 

1050 mx=320;niy=200;zp=0:2l = 0 

[1610] 

1060 READ numtlF nuni=-l THEN 1070 ELSE REA 
D X(nun) . y(nun} , z(nun}:zp=MAX(zp . nun) :zl = f 
-z{nun);PLOT (x(nun)/zl)•f+nx , (y(nun)/zl)» 
f4ny;G0T0 1060 

[8381] 

1070 READ a,e:IF a=-l THEN 1080 ELSE la{zl 
)=a: le ( zl1=e:zl=zl+l:GOTO 1070 

[3360] 

1080 READ tat:IF tat=-l THEN RESTORE 510:G 
OTO 1080 

[2735] 

1090 IF tat=-2 THEN END ELSE READ gr.st 

[1426] 

1100 FOR anzahUl TO gr STEP ABS(st) 

[787] 

1110 FOR p=0 TO zp:xsx{p):y=y(p):z=z(p) 

[1967] 

1120 ON tat GOTO 1130,1140,1150,1160,1170. 
1180 

[2190] 

1130 x=x+st:GOTO 1190 

[2159] 

1140 y=y+st:GOTO 1190 

[1477] 

1150 2=z+st:G0T0 1190 

[1234] 

1160 w=st:GOSUB 20:GOTO 1190 

[2043] 

1170 w=st:GOSUB 40:GOTO 1190 

[2595] 

1100 w=st:OOSUB 50 

[1163] 

1190 X(p)=x:y(p)=y:z(p)=z:ON pro GOSUB 60, 
70,80:xp(p)=x;yp(p)=y:NEXT 

[5166] 

1200 CLSrFOR g=0 TO zl:PLOT xp(la(g)).yp(l 
a(g)):DRAW xp(le(g)),yp(le(g)):NEXT 

[2747] 

1210 NEXT;GOTO 1080 

Listing Mikrocad ' 
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Grafpad III 

Das Professionelle CAD-Sysiem für den Joyce und für den 
PC! 


A Frei wählbarer Zeichen¬ 
satz 

^ Maßeinheitai könnoi 
angegeben werden 
A 16 verschiedene Zeich¬ 
nungsebenen 
A Syrnbolbibliolheken 
können angelegt werden 
A Stufenlose Zoomfunk- 
Ucmen 

A Freiwählbares Raster 
A Freiwählbarer Cursor- 
spning 

A 16 verschiedene Linien- 
typen 

A Dehnen, kippai, rotieren, 
kopieren 

A Verschieben und löschen 
aller Symbole, Texte, 
Objekte 

A Vergrößern und ver¬ 
kleinern 
A Schraffieren 
A Automatisches Bemaßen 



n®in irtJ? 

a 


Joyce: 548,- DM 

PC: 698,- DM 

mit deutschem Handbuch! 

deutsches Handbuch auch einzeln 
erhälüich: 29.80 DM 

Einzelinfo anfordern! 


Joyce Software 

Business-Star 298,- 

Fibu-Siar 298,-- 

Statistik-Star 98,- 

Datei-Star 98,-- 

dBase E 199,- 

Wordsur 199,- 

Multiplan 199,-- 

Prompt (Datei) 69.-- 

Piompt (Druck) 39,- 

MICA (CAD) 198,- 

Star Mail 98,— 

Star Base 1518,— 

DR Graph 199,- 

DR Draw 199,- 

Tutbo-Pascal 225,- 

Profirem 178,- 

Fakturem 98,— 

Fibuking 136,- 

Turbo Adiess 169,— 

Business Pack 198,- 

Datamat Joyce 298,- 

LocoMail 128,-- 

Tasword 8000 78,- 

^Joyoe-Mailing-Syslem 189,— 


r Scanner für PC 

Handy Bryllante-Produkt 
des Monats Juni 87 (Chip) 



bringt Graphik und Text super- 
schnell auf Ihren Bildschirm! 
Auflösung 200 Punkte/Zoll 
Scanbreite 64 mm 
Für IBM PC/XT/AT incl. Eiteiface, 
Software, Graphikpaket und deutstJi. 
Handbuch. Für Techniker, Lehrer, 
Werbefachleute, Redakteure ... 

, 848,- DM 


" Zubehör PC ^ 

B-Uufwerk 360 kb 398,- 
Aufrüstatz auf 640 kb 78,— 
Liifteibaustein 98,— 

Vortex Drive Card 1.098,-- 
TANDON Business 
Caid 21 (MB) 898,- 

Festplatten: Seagate/ Tan- 
don mit Lüfter und ControUer: 

20 MB 898,- 

30 MB 998,- 

^ 40 MB 1.798,- 

{ Amor Software 

Prowort • Textveniteibmg - uncliubliche Oe- 
ichivindi^il • mil MiamagB, RccbDchieitv 
koDlraUe, DukeBenhilliprogr. ■ dlid>. HindIweh 

3‘Di^W 6128 ,;aycB(CP/M•^) Je 239,- 
Protext »r(3>C4M,664,6I2S 

94,- EPROM 124,- 
MAXAM ‘ K<iifte(IMZ80En»icklunai- 

syfem - Werkzeug fiir den MuchinerupnchBii - 

Progranxnioa • AaetnNet/DiMaanhier/Mcnilo 

3’Di«k.CPC464.664.6128 94,- 

EfflOM 124,- 

MAXAM n 612S, Joyce Diik, 239,— 

Deutsches Handbuch für 

Protexi / Maxam (CPC) 19,80 

ROMBO Produkte 

ROMBOX für CPC - ROM-SteckpiuM- 

weitening • 8 ROM StcclqfiläBe - ROM'i betegen 
keinen Spcicheiplelz, iomit iit die ROMBOX die 
ideile Hudu'veerweileruiig für Sie * mit deauch. 
Anleitung- 

CPC 464, 664. 6128 118,- 

VIDI für CPC, Joyce und PC 

• hervons^nder Vkfeodjgidtfr * toil OjutrolSer * 
mit dcuttdiem Hindbucti • 

CPC 348,- Joyce 378,- 
PC (IBM-Komp.) 448,- 
V Info anfordem! j 


f Joyce ^ 

Farbband Drucker 24.90 

Parallel-Seriell-Schniustelle 148, 
B-Uufweik FD2 548, 

5 1/4" 1MB Laufwerk 498, 

Bildschirmfilter 59,- 

Papierführung 37, 

Etiketten (ZOO Stk) 16, 

10 Disk. 3" CF2 69, 

10 Disk. 3" 2DD 149, 

DiskeOenbox 3"/40 39.80 

^dlospapier 1000 Blatt 19.80 


Hardware PC, Zubehör 

1512 MD/SD 

1.423, 

1512 CD/SD 

1.898,- 

1512 MD/HD20 

2.423,- 

1640 MD/SD 

1.614,-- 

1640 CD/SD 

2.088,- 

1640 MD/HD20 

2.614,- 

Sanyo PC mit ttlmon 

1.648,- 

Tanikin PC (auf Anfrage) 


Victor PC (auf Anftage) 


NEC P6 (disch.) 

_ 

1.198,- 


NEC P6 color (dtsch.) 

1.598,- 

NEC P7 (dtsch.) 

1.698,-- 

Star NL 10/NG 10 (dtach.) 

698,- 

Star NX 15 (dtsch.) 

1.298,- 

DMP 3000 / 3160 

660,- 

DMP 4000 

898,- 

SD 15 Typenrad 

698,- 

SD 24 Nadeldrucker 

1.298,- 

RS 232 ofg. AMSTRAD 

248,- 

MS DOS 3.3 (IBM neu) 

198,-- 

GW-Basic (m. Handb.) 

98,- 

^ngl. Handbuch für 6128 




Elektric Studio 
Produkte 




LightpJCn * Freihandzeichen 

auf dem Bildschirm • gängige 
Funmtionen (Bleistift, Sprühdose ...) 
CPC's 98,- Joyce 278,- 

PC 98,- 

Video Digitizer * Einlesai von 
Bildern (Video) in Computer 
CPC's 348,- Joyce 348,- 

PC (neu!!) 398,- 

Mouse * mit Joystickan¬ 

schluß am Interface und Zeichensoft- 
ware wie beim Lightpen 
loyce 448," 


,^daptef (*) 


29,- 



Joyce - Hard Disk (ASD Peripherais) 

Machen Sie aus Ihrem Schneider Joyce ... eine 
Buchführungsanlage ... ein Bürosystem ... oder 
wieso schreiben Sie nicht einfach ein Buch? 


3000 Seiten 

können 

auf 10 Mbytes 

gespeichert 

werden! 


• 10 oder 20 MB • eiweitenes CP/M Plus und Locosript • mhgeliefette llilfs- 
programme ermöglicJien einfachen Gebrauch • schnelle Zugriffszeil - 85 ms 
macht aus Ihrem Joyce - Texlverarbeitungsprogramm ein leistungsfähiges 
Bürosystem * leicht anzusdiließon, ohne Spezialweikzeuge oder spezielle 
Kenntnisse • 

10 MB Hard Disk 1.698,- DM 
Einzelinfo anfordem !! 20 MB Hard Disk 1.998,- DM 

. .. ^ 

r Public Domain MS-DOS Software ^ 

Mehr als 600 Disketten mit über 10 000 Programmen sofort 
lieferbar! Bitte fordern Sie unsere Liste an! 

El huidcll »ich hierbei um Softwaie, die det koramerzieU vemiebenen in Leistung und Bedkaieititunil- 
lichkeit kaum oachstehL WeKolUch iit, daä dicK Softwaie fiel von Copyrighn und koilenlo* ial, Ange- 
gebeoB f^eiie dienen der Peckwig v« Unkoaftn CLeertkaketten, Kopicrea uAw J. Dt» Angebot der 
Public Doman Softwaie i»t Bhr vielsilig, 

Eine Garantie^ daft die freien Programme ftinktlonkren und welche Leblung »le bieten, 
kann nicht gegeben werden! 

Nachfolgend einige Beiapiele: 

- SpsledialsaBn (&B. Schach, PlugaiErwIatar, Karfcrvpiele u.a.w.) * Textverarbeitung (PC-Wrile) * PC- 
Muiican (MunkramSelbetkonqionieien)- Beat CatneilSammluEg der beamn Speie) - Key Dnw 
(Fatbgrifikaysttin) *PieaBM(Diavarfühning)*Tutbo»prie (Demoi in Turbo PaKil) - Draftaman 
(EneUsuvaiGrarilea) • Deakmatea (Hintergrund-Pruipainn) * CawqueM (Athencuie) - und viele 
mele, Lek tnfoTdem 

Jede Diskette nur 10,- DM 

PD-lOer Blöcke: 


Block 1 

■ Tcetwnrfaeitung 

- Hightaimuleor 

■PCRlein 

- FVime Uülitiei 

- Bane Progr. ütim. 


Block 2 


‘ Brwef * Mike 

- Bowling Seoetaiy 

■ Finance 

- Math und Sut 

Wenpepcr^'inaiaeo - Print Grafik l+II 

Miiu Aaeembler - Biaic Tmultlor 

- Ibugiauim CenWol - ESIEkunad. Inlellitpnz 

-‘Croaaier -Wizard'aCaaÜeCame 

- * Suunek* - Packman and Newnek 


Block 3 

-PC-Wri» 

- Rnt» 

. Tabedloikaloilaihs 
• Spiele deuoch 
-Prolog 

- Datenbank 

- Finince 

. DOS Tutce, deutach 

- Mooopoly 

- Horoskop 


Block 4 

- Dnicker-Utilitiea 
-Mufk 
-Touditype 

- Applikatkn 
-PC-Cric 

■ faifobaae Datoftmk 
PC-ZAP 

- IlilfaptopanaiB 
• Dnicker Utditica 

■ Baak IMilBl 


je Block 


nur 68,- DM 































































































Public Domain 
Software 

(CPC/Joyce) 

Ca. 1000 Programme auf 300 Dis- 
keltoi für Ihren CPC 464, 664, 
6128 und Joyce! 

Liste anfordern! 

Jede Diskette O', 3,5*. 5i/4") 20,-- 

PD deutsch: 

Nr. 1: Pascal-Compiler (JRT) 

Nr.2: Z80 Assembler. Disassem¬ 
bler und Linker 
Nr.3: Interpreter für lisp und 
Prolog 

Nr.4: C-CompUer (Small C) 

Nr.5: Foith-83 
Nr.6: CP/M-Hilfsprograrame 
Diskettenmonilor 
Nr.7; Großes CPC Arbeitsbuch 
Nr.8: Cdossal Cavc-Adventure 
Nr.9; CPC Disk UtiHües 
Nr.lO; BizBasic mit Daieiverwalt. 
Nr.ll: Basic Compiler 
Nr.l2'. hiline-Generator, Grafik 
VjJiskette (3", 5 1/4") 30,»» ^ 


^AMXSeitenge- 

stalter 

• kcanbinieibar zur AMX-Mouse 

• erlaubt Herstellung von Zeitung¬ 
en, Poster und Handzettel 

• benötigt 64k Zusatzspeicher bei 
464 und 664 (nur dk'tronics! I) 

Programm incl. dtsch. Handbudi 
DM 178,- 

Handbuch dtsch. auch einzeln er¬ 
hältlich DM 29.80 




Ülm.x 


ItlUlk 

Crrtiifill' 

Klj 




n e 




tllKII 

rxiii 

-• 



Gerdes-Maus CPC 228,- 

Joyce MousePack 249,- 

Star Mouse: 

• spanische Maus mit Grafiksoft¬ 
ware ähnlich AMX-Mouse 
zum sensationellen Preis von 
nur 168,“ 


AMX-Mouse 

• erleichtert die Benutzung des 
^Sikrocomputers und stellt einen 

großen Fortschritt dar 

• Steuerung des Computers über 
den Bildschirm 

• mit hervonagendon Grafikpro¬ 
gramm 

• Text und Grafik können vermischt 
weiden 

Programm incl. dtsch. Handbuch 
DM 248,- 

(auch für Joyce erhältlich) 
Handbuch dtsch. auch einzeln 
erhätlich DM 29.80 


Schaltplanservice 


CPC 464-664-6128 
PCW 8256-8512 
CTM644 
CrM640 
GT 64/65 
PC 1512 

Monitor CM/MM 

Vokabeltrainer: 
Joyce 59,- 
Verbentrainer: 
V^cc 49,"_ 


je 19.80 

24.80 
15,- 
12 ,- 

Je 12,- 

29.80 
Je 19.80 

K 39,- 
D 49,- 
K 29,- 
D 39,-. 


/Handbücher dtsch. ^ 

OnSpui 3 * Liahtpcc dc'tronic« ■ 6V2S6 k Gr- 
weiMnmg dk'trmica • Mouae Elektrik Sauiio * 
Ligbtpon Elektrik Studio • AMX Motue • AMX 
Seiuaiguuller * Atndnun * Video Digitizer > 

Romboi ■ Vidi 29,80 

Software PC 

TAS+ relatknile Dmbmk • mit deul- 
schein Handbuch and tuaflltariichem Lehreü ■ 

398,- 

ABLE ONE Softwutpake»• Te»- 

«Brarbekung, Kalkulatkn, GraCk, Datenbank * 

498.- ^ 


dk'tronics Produkte 


für 464/664: 


für 6128; 


Speech Synth. (ROM) 

129,- 

256k Erweiterung * 

249,- 

Speech Synth. (Kas.) 

89,- 

256k Silicon Disk * 

249,-- 

Lightpen (Kas.) 

59,.. 

Speech Synih.(ROM) * 

139,- 

IJghtpen (ROM) 

89,- 

Lightpen (ROM) * 

89,- 

64k Erweiterung 

109,- 

64k Silicon Disk • 

98,- 

256k Erweiterung 

249,- 

Uhretimodul (neu!!) • 

119,- 

256k Silicon Disk 

249,- 

Adapter (all Module *) 

29,- 


Uhrenmodul (neu!!) 119,— 

für Joyce 

256k Erweiterung 109,- 

Joystick-Controller * 69,- 

Joystick-CofUroUer + 
Soundsynlh.* 129,- 

Hchtzcituhrenmodul * 129,— 

Adapter (*) 29,- 



TV Tuner für CPC 

Machen Sie aus Ihrem Schneider CPC (color) einen Farb¬ 
fernseher! Mit StaüonstaslenI 
TV Tuner Screcns 298,— 

Vj^inzelinfo anfordern! _ 



Dart - Scanner 


MODELL-EI iENBAHN-CLUB 


Wl»«W _ 

8960tenptn/Ateau e.V 



Präzisionshardware 
aus England! 

Hochwertige Grafiken schnell 
und einfach in den Computer 
zu bringai war in der Ver¬ 
gangenheit ein Problem. 

Damit ist Jetzt Schluß! 

Wenn Sie Besitzer eines Schneider CPC und eines DMP 2000 sind, haben 
Sie mit dem Dart-Scanner die Möglichkeit, Bilder und Grafiken in 4 ver¬ 
schiedenen Auflösungen bis zur DIN A4 Größe oder bis zu 20 x 10 Punkte 
pro mm^ (höher als Laserdruckerauflösung) in Verbindung mit einem kom¬ 
pletten Grafikprogramm in den Computer einzulesen! Anschließraid kämen 
diese eingelesenen Objekte beliebig weiteTverarbeitet und ausgedruckt werden 
Einfache Installation: der Scanner wird auf den Druckkopf des DMP 
2000/3000/3160 und Riteman F-i- aufgesteckt, das mitgelicfeiie Interface an 
dem Erweilerungsbus ange-schlossen und schon geht's bs. Ihr Bild wird nun 
Zeile für ZeUe in Höchstauflösung abgetastel. 

Weitere Druckeranpassungen werden folgen! 

Für CPC 464, 664 und 6128 

Mit deutscher Anleitung ! 249,- DM 

Bitte fordern Sie unser Einzelinfo an! 


Wichtiges Zubehör ^ 

Drucketkabel CPC's 99,- 

Mooitor Verlängerung CPC 23,50 

Farbband für; NLQ 401 14,80 

DMP 2000/3000/3160 19,80 

10 Disk. 5 1/4" ssA>s 29,-/39,- 
10 Disk. 3" CT 2D/2DD 69,"/148," 
Diskeitenbox 3"ß,5" 40 39,80 

Diskettenbox 3"/3,5" 80 49,80 

Joystick CompeL 5000 39,** 

Joystick Schneider 35,-- 

Etiketten 7ft.70iiim(acxBt.) 16,- 

Abdeckhauben: 

Konsole 464, 664, 6128 19,80 

Monitor grün, color 29,80 

DMP 2000/3000 19,80 

Floppy DDl, FDl, Vortex 16,80 

Hardware CPC: 

CPC 6128 griin 758,- 

CPC 6128 color 1233,- 

CPC 464 Keyboard 283,- 

Monitor grün/color 283,”/663,- 
DDl mit CemtroUer 478,- 

FDl mit Kabel 478,- 






S 232 (464, 664, 6128) 148,- 


^ Multiface 11 

(Kopierprogramm) 



Vollständige Kopiereinrichtung für 
Kassetten und Disketten 
Wird auf den Expansionsport Ihres 
CPC (464,664 und 6128) aufge¬ 
steckt 

Wahlweises Kopieren von Kas. auf 
Disk, und umgekehrt, sowie von 
Kas. zu Kas. und Disk, zu Disk. 


Adapter (6128) 


DM 178,-- 

29,- 


Mirage Imager 

(Kopierprogramm) 

ähnlich Multiface II 148,— 

\^Adapter (6128)_ 29,- 


T MB Laufwerk (Joycey\ 

sehr schnelle 



2:ugiiffszeit > 
preiswertes 
Disketten¬ 
material • 
doppelseitig • 5 1/4" ist das welt¬ 
weit am meisten eingesetzte Disket- 
tenformat • problemloser Anschluß! 

5 1/4" 1 MB-Slimline 448,- 
3 1/2" 1 MB-Slimline 348,- 


''' Supercopy ^ 

Das Diskettenkopietprogramm der 
Superlative für den Schneider CPC 
464, 664, 6128 und Jt^ce! 

- Sicheiheitkc^ie anlegen möglich! 

- bearbeitet alle 43 Spuren 

Service: Sollte Supercoj^yeiameletwuniclt 
KheHen, denn teaiai Sie die Orgiiuldaksae 
&ire» IVognmnu und ven SURRCOPY m den 
Hoslells, dum erhilten Sie komiloi eine teue 
Vwinn incl. dgf R rinennang A« neuen Kcpier- 
schütze*. 

^ Disk. CPC's 79,- Joyce 89,--^ 


K^l-Heinz • Potsdamer Ring 715 p: Bäc|mang *l:i 
Teläk: 724410 weeba d • Kreis^rkasSö BÄnar^l' 
i:;(BLZ 60250020)74397 

wsssUs 

COnPUTER-ELEI^TROrfll^ 

/ ir Zählung per 

:: (Bei Bestelhrng aus dem At^land 

Vman(lkoaeopauschaloA^bi4 CAtislÄdll.^ bbil) 

07191/1528-29 od. 60076 






























































































































I —Tips & Tricks 



Reloc ist ein Programm für jeden der sich schon geärgert 
hat, daß zwei seiner Maschinenspracheprogramme in dem 
selben Speicherbereich liefen, so daß er sie nicht zusammen 
verw'enden konnte. Was nützten z.B. die besten Grafik- 
RSX-Routinen, wenn die Hardcopyroutine den gleichen 
Speicherbereich braucht. Um flexibel zu sein, braucht man 
relocalisierbare Programme, die in jede Adresse geladen 
und von dort aus gestartet werden können. Dies bedeutet 
aber mühselige Arbeit, wenn das alles mit der Hand gesche¬ 
hen soll, um im Assemblerquellcode eine Tabelle für jeden 
Label anzulegen und außerdem zwei Bytes mehr, pro La¬ 
bel. Reloc legt die Tabelle selbst an und braucht auch nur 
ca. 1 Byte pro Label. 

So wird Reloc benutzt: 

1. ) Man assembliert sein Programm einmal mit ORG 0, merkt 
sich die Einsprungsadresse, die Länge und speichert es an¬ 
schließend ab. Das gleiche Verfahren wird mit der Adresse 
&1000 angewendet. Bei dem Maxam Assembler geschieht das 
mit dem Write Befehl. Bei dem Devpac Assembler wird das mit 
der Option 16 ausgefuhrt. Bei dem Zen Assembler einfach mit 
dem LOAD Befehl. 

2. ) Man startet Reloc, gibt den Dateinamen, die Länge und die 
Ansprungadresse an. 

3. ) Man schreibt sich das Tabellenende, die Gesamtlänge und 
die 2. Ansprungadresse die angezeigt wird, auf. Und anschlie¬ 
ßend wählt man einen Dateinamen zum Abspeichern des relo- 
calisierbaren Programms . Nun kann man das Programm an 
eine beliebige Adresse laden und benutzen. 

Das wird so gemacht: 

l=ladeaciresse (z.B.himem-Länge) 

memory 1-1 

load "ProgrammM 

calll 


Nun kann man wenn man unbedingt Speicherplatz sparen will, 
eingeben: 

memory l+Tobellenende. 

Wenn man dies ausgeführt hat, muß man jetzt jedoch; 

calll 

call 1+ zweite Ansprungadiesse 
verwenden. 

Es ist auch möglich, ein kleines Ladeprogramm zu schreiben, 
der dies automatisch macht. Es könnte für eine RSX Erweite¬ 
rung so aussehen (falls als Ansprungadresse für Reloc die RSX 
Initialisierungsroutinc angegeben wurde): 

10 input'Xadeadresse (Enter= höchst möglich)";a$ 

20 if a$ =''" then la=himem- 

GesammtLänge+1 eise la=val(a$) 

30 memory la-1 

40 load''relocalisierbares Programm'Ma 
50 call la: 'Relocalisieren und dann Aufruf der 
Initialisierungsroutine 
60 memory la+TabellenEnde 
70 printTolgende RSX wurden Instaliert;" 

80 prinf'IFlLL" 

90 print“IHARDCOPY." 

100 new 

Das Programm ist in der Lage bis zu 16 kByte Code zu verar¬ 
beiten. 

Es können nur dann Fehler auftreten, wenn die Quellprogram¬ 
me auch im Assemblertext nicht relocalisierbar wären: wenn 
Absolutadressen im Programm getrennt als high und low Byte 
verarbeitet werden. 

(A. Gobbi) 


für 464-6128 



10 MODE 2 1513] 

20 dat0=i6000 [367] 

30 tabb = da-t0-3 [ 1434] 

40 MEMORY dat0-&.4003 [64] 

50 INPi;T”Datei mit ORG = 0000H ";n$ [ 1359] 

60 INPUT"DBtei mit ORG=1000H ";n2$ [1743] 

70 INPUT'’Laonge des Programmes ";1 [2252] 

80 INPUT''Einsprungadresse des Programms mi [4914] 

t ORG=0000h ";s 

90 n$=nS;LOAD nJ.datO [1220] 

100 n2$=n2$:LOAD ii21 , datO-44000-2 [440] 


110 DBF FNlow{x)=VAL(''&.-'+RIGHT$(HEX$(x,4) , [709] 
2 ) ) 

120 DEF FNhigh(x)=VAL("8i"tLEFT${HEX$(x,4) , [1836] 


2 ) ) 

130 ende=dat0tl-l [480] 

140 iiadr=&90 [319] 

150 FOH adrsende TO datO STEP -1 [1858] 

160 IF PEEK(adr)<>PEEK(adr-44002) THEN OOS [1850] 

LB 430 

170 NEXT [350] 

180 rel = tabb 451H-4 [748] 

190 FOH i=0 TO 78 [501] 

200 READ b$:b=VAL("4"+bS) [1052] 

210 p=ptb:POKE rel+i.b [375] 

220 NEXT [350] 


230 IF p<>9276 THEN PRINT"Prueffsummenfehl [4320] 
er":END 

240 POKE rel+44F.FNlow(s):POKE rcl+450,FNh [2638] 
igh(s) 

250 POKE rel+424,FNlow(dat0-tabb+3):POKE r [3655] 
el<425 .FNhighUatO- tabb+3 ) 

260 POKE tabb.nadr [1098] 

270 POKE tabb'3.FNhigh(tabb-5-dat0);P0KE t [2609] 
abb-1,FNlow(tebb-5-dBtO) 

280 POKE tabb-2,PEEK(tabb-l) [1082] 


Listing Reloc 


290 POKE dato-1,490:POKE dat0-2,PEEK(dat0- [3207] 
3) 

300 CLS [91] 

310 PRINT TAB(15)"anfang"TAB(25)’'eade''TAB( [4384] 
35 ) " lacnge" 

320 PRINT"Relocator"TAB(15)"0000H"TAB(25)" [3366] 
0050H''TAB(35)"0051H" 

330 PRINT"Tabelle"TAB(15)"0051H"TAB(25)HEX [6120] 
$(dat0-rel-l,4)"H"TAB(35)HEX$(datO-tabbt3, 

4 ) "H" 

340 PRINT"Programin"TAB( 15 )HEXS ( datO-rel .4) [3901 ] 

"H"TAB(25)HEX$(ende-rel,4)"H"TAB(35)HEX$U 

.4I"H" 

350 PRINT"ges6mint"TAB(lS)"OOOOH"TAB(25)HEX [5865] 

$(ende-rel,4)"H"TAB(35)HEX$(ende-rel+l,4)" 

H" 

360 PUINT:PRINT"Einsprungadresse beim 1- A [5049] 
uffruf OOOOH" 


370 PRINT’’beiin 2, Aufruf OOOOH oder "HE [4088] 
X$(s+datO-rel,4)"H" 

380 PBINT;PRINT"Die Adresen sind relativ z [4711] 
ur Ladeadresse" 

390 PRINT [361] 

400 INPlIT"Dateiname fuer Programm ";n$;nl= [2885] 
n$ 

410 SAVE n$,b,rel,ende-rel+1,s+detO-re1 [2607] 

420 END [IIOJ 

430 radr=adr-dat0-l [1274] 

440 IF FNhigh(radr)<>nadr AND nadr<>490 TH [3451] 
EN POKE tabb.nadr;POKE tabb-1.FNlow(radr); 
tabb=tabb-2 

450 POKE tabb,FNlow(radr):tabb=tabb-1 [1768] 

460 nadr=FNhigh(radr) [270] 

470 RETURN [555] 

480 DATA E5,D5,C5.F5.3E.C9,32.0F.00,F3 [662] 

490 DATA CD.OF,00.3B,3B.E1,FB.E5.11,0D [2147] 

500 DATA 00.B7,ED.52.36.18,23,36.40,El [1617] 

510 DATA 11,44,00, 19.E5.il. 00.00.19.44 [1016] 

520 DATA 4D.E1,7E.FE.90.28,IB,57.23,7E [1826] 

530 DATA 3D.5E,23,BB,28.F2,D5.E5,EB,09 [2251] 

540 DATA 5E.23,56.EB,09.EB.72.2B.73.E1 [1995] 

550 DATA Dl.7B,18,E9,Fl.CI,Dl.El,C3 [2352] 


üsting Reloc 


58 PC 10’87 
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I "Tips & Tricks—| 


C 

C führt eine Resettaste ein. Nach dem Starten des Pro¬ 
gramms wird beim Drücken von CTRL+c das Basic auf¬ 
gerufen, ohne den Speicher zu löschen. 


deren CPCs hat, sollte sie uns doch ’mal zusenden. Möglicher¬ 
weise komme ich auch noch selbst darauf, woran es liegt. 

Und was soll man nu’ damit machen können? — Man kann zum 
Beispiel eingestellte Werte bestimmter Soundregister holen, 
überprüfen und gegebenenfalls ändern. 

Zeitbedarf der Routine: Ungefähr 60 Mikrosekunden! 


Mit C kann man ein Maschinenspracheprogramm, das im Nir¬ 
wana landet vielleicht noch retten. Falls jedoch der Interrupt 
mit DI unterbunden wurde, kann die Tastatur nicht mehr kon¬ 
trolliert werden und cs ist nichts mehr zu machen. 

(A. Gobbi) 


für 464 




10 FOR iX=0 TO 13:READ aX:POKE ilOO+iX.aX: 
NEXT 

20 FOR iX=0 TO 58:READ aXiPOKE ABE00+iX,aX 
:NEXT 

30 CALL &.100 
40 NEW 

50 DATA AF3.&3E,&C3,t32.A6D.&B9,&,21,&00.&B 
E. &22 . &.6E . &B9 . &FB. ACS 

60 DATA A3A,&92,&.Bl.&3D,A20.7,&,3A.fcED,&B4, 
ACB, &7F.&,20.3 .&F1. AFB, iC9 ,&3A. AF2 . &B4 . &CB. 
&7 7.&28,AF6.&3A,9.&B5.&FE.&1E,A20,&EF.&21. 
&3C.4B5.A36.A15,&2 3,&AF,A77,&2 3.Ät36.1.423. 
477.423.477.4F1.431,0.4C0,4DF.43ß.4BE.4CD. 
45E,46A.4C3.490.4C0.0 


[2884] 

[2284] 

[470] 

[318] 

[2859] 

[10927] 


Listing C 


Ready to use Tip 

MC READ SOUND REGISTER 

Eine Firmware-Erweiterung 

Dieses mal gibt es in der Ready to use-Ecke eine Firmwa¬ 
re-Erweiterung auf der untersten Maschinenebene. 

Da aber die Hardware von CPC464 und den anderen CPCs 
nicht haargenau baugleich ist, kann hier nur eine Lösung für 
den CPC464 vorgestellt werden. Wer vielleicht eine für die an- 


Hermann/Eckehart Röscheisen 


für 464-664-6128 



AOOO 

AOOO 3E04 
A002 OEA5 
A004 CD34BD 
A0O7 3e04 


A009 F3 
AOOA 08F4 
PSG 

AOOC ED79 
AOOE 06F6 
AOlO ED7B 
A012 P6C0 
kOlA BD79 
A016 E69F 
AOie EP79 
AOIA 0BF7 
aput lode 
AOlC 3E90 
AOIE EP79 
A020 0SP6 
A022 ED7e 
A024 F&40 
A026 ED79 
A029 B6dP 
A02A EP79 
A02C 06F4 
fron port A 
A02E BD4d 
AO30 3EeO 
A032 06F7 

to output 
A034 BEp 79 
A036 PB 
A037 Cd 


1000 
1010 
1020 
1090 
1040 
1050 
1060 
1070 
iOdO i 
1090 i 
1100 ( 
lUO t 

1120 t 
1190 
1140 \ 

1150 i 
1180 l 

1170 i 

1180 i 
1180 ; 

1200 t 
1210 { 

1220 4 

1230 

1240 BDPSC: 
1250 


i A,4 
d C.I65 
4ii «basd 


Exaaplü 

te t69t 

HC SOUND tIGISTBB 
Aoy rugrstnr 


HC tEAI» fSG AY-3-8812'tEGl3TEl 
Firauar» nxtanaioa by H.2. 

CFC4e4 06 ly ... 
vgl. «BD34 HC SOUND KEGISTEB 

EiBupruBgi 

* Ai EB<iflt0rRuiu0r 

Auasprunfi 

- C: BegiateruBrt 

- B: Let2t«r Port-H«rt AF7 

- A< Letzter Out «60 

- Alle anderen Begiater unveraendert 


1260 OUT (Cl.A 

1270 LD B.dPe 

1280 IN A,(C> 

1290 01 eco 

1300 OUT (O.A 

1310 AND i3F 

1320 OUT (C].A 

1330 LD D.«F7 


atfiteh 8255 port A to i 


1340 IP A,edO 

1950 OUT <C»,A 

1360 LD B.eF6 

1370 IM A»(CI 

1360 OB a40 

1390 OUT <CKA 

1400 AND eSF 

1410 OUT <C»,A 

1420 ID P.eP4 

1430 IN G.(C> 

1440 LD A.tSO 

1450 LP B,dF7 

1460 OUT lO.A 

1470 Bl 

1460 BET 

1490 


; read regiater 

i 

; read regiater conteata 

; luitcb 6255 port A back 
. enabl« Interrupts egain 


BDPSG A009 

Teble uaed: 25 fron 216 


Listing MC read Sound Register 


BRANDHEISSE KNÜLLERPREISE 


Schneider 

CPC 6128 inll SnniwiilM 

729,- 

Epsendrueker (dl. Venlen) 

AnsdlüOeiiig an AMIGA, Schneider PC oder CPC, Mari 

ST oder IBM- 

C:pC 6128 inli rHitiireniier 

1149,- 

KompalAk) 


Jditce PWI8256 

1549, 

LXBÜO 

579,- 

J^e Plus 

2099,- 

FXBOO 

939,- 

3' DsKetlen (Maxell CF2) 

10 St 75,- 

FX1000 

1189,- 

30 St 169.- 

Lceoo 

1099,- 

PC 1640 mit SWmDn + 1 Laulwerk 

1529,- 

IC 1000 

1429,- 

mll SWniDii + 2 Laulwarte 

1939,- 

IC 2500 

2399,- 

iril SW-rnon (1 UV (HD 20 MB 

2829,- 

EX 800 

1349,- 

PC 1640 mll Rfbrnou * 1 Laulwerk 

1939,- 

EX 1000 

1679, - 

M Faibmni ^ 2 Lauiwrke 

2379,- 

1X800 

1649, - 

iMFaitHTObJILWIHOZOMB 

3239,- 

SO 2500 

3229, - 

PC 1640 iii( EGA mon + ' LaulMik 

2599,- 

Caloreinbausalz lur EX 600-1000 

219,- 

mil EGA-mon. i 2 Lautvertc 

2979,- 

EinzelUattelnzug EXIFXILC 600 

379,- 

dilT EGA-rnon.(UW(HD20MB 

3899.- 

Epson PCe Main Unil 1 1 Laulweik 

1269,- 

20 MB Fesiplatle (Seagate) e Cdruroller 

679,- 

PC-AXMamUnlin laufxeiK 

3179,- 

20 UBNinn tipma (eledau' und inschluß<er8g 
lurPClSCuna W 

979,- 

StarOrueker (dt. Verelon) 

M.1Q mi Comm. Cätronics oder IBM 

579,- 

30MMuriFu|l 

1149,- 

NO 10 iM Cmcromcssdininstelle 

979,- 

Seiko VievKUv Wisl ferminai 1000 

169,- 

Cemmedore 


GranuaHen Kaalagad lui IBM l^palible 


Commodore PC-n II 

1849,- 

mll ColorgraliUarte + Gamepod 

149,- 

Commodor* PC 20 II 

2649.- 

NEC-Drucker (dt. Vsrslon) 


Cominodore AUIGA 500 

1009,- 

NEC »6 

1149,- 

AMIGA 50) - 1 - ^ibmonilor 1061 

1769,- 

NEC P 6 Coloi 

1529,- 

Conrnodore AUIGA 2000 

2399,- 

NECP7 

1499,- 

AMIGA 2000 + Faibmomtor 1061 

2999,- 

NEC P 7 Color 

1799,- 

Commodore AT PC 40 

3849,- 


Vei^aliostBiiiia.jsctiale (Ut^renMi: bis OM lOOO.-idaüDa) UmiäossefDM 9,-i20.-|, Machnabne (OM t1.?(K3.?0). Ausland (OM IS-130,-1 
Lelsnitig nui degenNN oderVoraustasse; Aiäand nur \muslasse. PteisüslelOompulntvi) angetien) gegen Zusendung eines Fie.uiriselilagi 

CSV RIECERT 

Schloehofstr. 5,7324 RechOarghausen, (O 71 61) 6 28 89 


GAI COnPUTER 

lüV^! 


I 


Ihr Spezialist f&r Schneider PC und CPCB 
für PC 


RaßBtx/TeleadaplH 

ludonZOMeksinessCaid 

«96,- 

998- 

Hnules-IOtzuni Ertau 

348.- 

- nnwaliluekSpNleundf'rogrvTmie- 

ZwetdaulwerfeKrCPC: 

KAACN3'2Heaaiih«k 
ansdikiSfertig, jetzt nur nocli 

296;- 

Orueker: 

SUR NL10. ongm n. dt Handuch 

autAnfiage 

Panasonic KXP »62 

868;- 

Schneidet OMP 3000 

S2a- 

Radon Sie wsat VrandpnistWBn lür CPC Ddir PC 
Begen DM 2,- M Briefaurtefl ent ü loiinl tidil 


3_GAI • 7107 NackKWlm • Tel.: (0 713Z) 3 71M 

-GAI COrtPUTER 


I 

I 

I 
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Mit Symbolen und beweglichen Bildschirmobjekten sind die CPCs, im Ge> 
gensatz zu den übrigen Leistungsmerkmalen, nicht gerade üppig ausgestat¬ 
tet. Hier bieten sie dem Anwender in erster Linie nur die 256 Text-Zeichen. 
Um dem abzuhelfen, bringen wir in dieser Folge eine komplette ICON und 
Sprite-Verwaitung. Somit können Sie sowohl Ihre Anwenderprogramme mit 
Ikonen benutzerfreundlicher herrichten, als auch Ihre Spiele durch Sprites 
schneller und optisch aufwendiger gestalten. 


Dabei ist die Bezeichnung, ob ICON 
oder Sprite, nebensächlich, da sich bei¬ 
de programmtechnisch nicht unter¬ 
scheiden. Da Ikonen meistens als feste 
Bildsymbole Verwendung finden und 
Sprites in erster Linie in Spielen zu 
Hause sind, wird je nach Anwenderfall 
in diesem Beitrag der richtige Aus¬ 
druck verwendet. Um hier keine Un¬ 
klarheiten zu schaffen, nachfolgend 
noch einmal als Zusammenfassung, 
was hier wie bezeichnet wird: 

ICON: Ein-/ausblendbare Bildsymbo¬ 
le, die jedoch vom Programm in der 
Regel nicht bewegt werden. 

Sprite: Diese Bezeichnung wird ver¬ 
wendet, wenn diese Bildsymbole in der 
Regel durch ein Programm bewegt 
werden (meistens in Spielen oder z.B. 
als Cursor-Symbol) 

Sie sehen, es gibt lediglich den Unter¬ 
schied, ob sie fest sind oder bewegt 
werden. Profi RSX ist es aber egal, wie 
Sie ein Symbol bezeichnen. Es verwal¬ 
tet einfach Symbole, alles andere ist 
uninteressant. Lediglich von Bedeu¬ 
tung ist, daß alle Symbole (Sprites und 
Ikonen) selbstverständlich keine Bild¬ 
schirmdarstellung vernichten, d.h., 
daß der Hintergrund nach dem Aus¬ 
blenden der Symbole wieder unverän¬ 
dert erscheint. 


sich die Matrix zu merken. Da PR sich 
diesen nicht willkürlich reserviert, was 
Ihr BASIC-Programm äußerst unflexi¬ 
bel machen würde, bedarf es einer Mit¬ 
teilung an PR, wo und wieviel Spei¬ 
cherplatz reserviert werden soll. Dabei 
kann der Speicherplatz überall in den 
ersten 64k ihres Rechners liegen (na¬ 
türlich nicht im Bildschirm-RAM, in¬ 
nerhalb von Profi RSX oder anderen 
System-Bereichen). Aber ansonsten 
sind Sie völlig frei in Ihrer Wahl. Wenn 
Sie sich entschieden haben, wo Sie am 
ehesten Speicherplatz entbehren kön¬ 
nen, so müssen Sie PR dessen Lage 
mitteilen. Dieses geschieht mit Hilfe 
des Befehles Nr. 83 (»SP.MEMORY, 
Adresse oberste Speicherstelle, Adres¬ 
se unterste Speicherstelle«). Danach 
wird dann dieser Bereich für alle 
ICON/Sprite-Definitionen verwendet, 
natürlich einschließlich der oberen und 
unteren Adresse. Bevor Sie den Befehl 
anwenden, müssen Sie, wie Ihnen in¬ 
zwischen sicherlich einleuchtet, den 
BASIC-Speicher durch »MEMORY 
(unterste Speicherstelle)-!« schüteen. 
Damit Sie jedoch wissen, wieviel Spei¬ 
cher Sie benötigen, sehen wir uns jetzt 
erst einmal an, wie Sprites & Ikonen 
erstellt und intern behandelt werden. 


Grundsätzliches 


Um mit dieser Folge arbeiten zu kön¬ 
nen, laden Sie einfach die Erweiterung 
und initialisieren Sie diese mit “CALL 
&8000“ (vor dem Laden natürlich 
“MEMORY &7fff“ eingeben). Falls 
Sie auch einige oder alle anderen Profi 
RSX-Teile verwenden möchten, so be¬ 
folgen Sie bitte unbedingt die zum 
Schluß abgedruckte Ladeanweisung! 
Ikonen und Sprites bestehen in ihrem 
Aufbau aus einer Matrix, die, wie bei 
den Text-Zeichen, die Informationen 
für ihr Aussehen enthält. Natürlich be¬ 
nötigt Profi RSX Speicherplatz, um 


Erstellen von Ikonen 
und Sprites 


Ein Icon (und auch ein Sprite) ist prin¬ 
zipiell nicht anders zu erstellen als ein 
Zeichen. Lediglich gilt hier zu berück¬ 
sichtigen, daß dieses auch farbig sein 
kann. Damit läßt sich eine äquivalente 
Programmierung zum Symbol-Befehl 
nicht erreichen. Wie jedoch dann pro¬ 
grammieren? In der Computer-»Stein- 
zeit«, sprich C 64, als erstmals Sprites 
auftauchten, geschah dieses extrem 
kompliziert und war (und ist) für den 
»durchschnittlichen« Freizeit-BASIC- 
Programmierer undurchsichtig (vor¬ 
sichtig ausgedrückt). Dort gilt es, Spri¬ 


tes im Binär-Format zu entwickeln und 
mittels Poke-Befehlen zu laden. 

Dann noch ein paar Register setzen und 
fertig. Falls Sie Farben wünschten, so 
mußten zusätzlich für jede einzelne 
Farbe Bitkombinationen berücksichtigt 
werden. Das ganze war eben ein wenig 
un^tändlich und letztendlich gab es 
auch nur eine »Einheitsgröße« der Spri¬ 
tes. Da Sie einen CPC haben, soll uns 
das hier nicht weiter interessieren. Wie 
aber ist bei Profi RSX dieses Problem 
gelöst worden? Zumindest nicht 
schlechter, wie ich meine. 

Zuerst zur Größe, dem Format der 
Sprites. Dieses können Sie beliebig 
wählen. Aus diesem Grund muß ir¬ 
gendwo festgehalten werden, welches 
Format welches Sprite hat. Dieses ge¬ 
schieht mit dem zweiten Befehl dieser 
Folge, der folgende Syntax hat: 

“SP.DEF, ICON/ Sprite-Nummer, 

X-, Y-Ausdehnung, Mode, Adresse 
Integer-Variable« 

Zuerst geben Sie Nummer des Sprites 
an. Danach folgen die X- und Y-Aus- 
maße. Diese sind in Pixel anzugeben. 
Die X-Ausdehnung sollte durch 8 
(Mode 2), durch 4 (Mode 1) oder durch 
2 (Mode 0) dividierbar sein. Als näch¬ 
stes folgt der Mode, in dem das Symbol 
später angezeigt werden soll. Hier kön¬ 
nen Sie jeden der drei Bildschirmmodi 
angeben, die Ihnen Ihr CPC zur Verfü¬ 
gung stellt. Selbstverständlich kann 
Profi RSX Sprites und Ikonen in allen 
dreier Auflösungen korrekt verarbei¬ 
ten. Noch ein weiterer Vorteil steckt in 
diesem Befehl: Nur durch ändern des 
Modes in dem Befehl »SP.DEF« kön¬ 
nen alle Matrixen, die wie nachfolgend 
beschrieben erstellt wurden, für alle 
drei Auflösungen verwendet werden; 
Sie müssen demnach das Aussehen ei¬ 
nes Symboles nur einmal festlegen und 
können es dann in allen Auflösungen 
benutzen. Dabei sind die Unterschiede 
in der Anzahl der verwendbaren Far¬ 
ben zu beachten. Für eine Service-Mel¬ 
dung seitens Profi RSX wird der vierte 
und letzte Parameter benötigt. Hier 
müssen Sie die Adresse (»Klammeraf¬ 
fe«!) einer Integer-Variablen überge¬ 
ben. Der Inhalt dieser Variablen sollte 
(muß aber nicht) zweckmäßigerweise 
eine »0« sein. Nach Abschluß des Be¬ 
fehles teilt Ihnen dieser hier mit, ob er 
erfolgreich durchgeführt wurde. Ist der 
Inhalt der Variablen = l, so war alles 
ok. Andernfalls (lnhalt=0 oder unver¬ 
ändert) gab es eine oder mehrere Un¬ 
stimmigkeiten. In erster Linie kann 
dies ein Mangel an Speicherplatz ge¬ 
wesen sein. Wie aber berechnen Sie 
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Abb. 1 


den benötigten Speicherplatz für ein 
Symbol? Dies läßt sich leicht mit fol¬ 
gender Formel bewerkstelligen: 

benötigterSpeicherplatz=(Y - Ausdeh- 
nung*(X-Ausdehnung/Mode¬ 
faktor))+12 

Dabei sind für die Ausdehnung die 
Werte in Pixel einzusetzen. Der Mode¬ 
faktor beträgt bei Mode 2:8, bei Mode 
1: 4 und schließlich bei Mode 0: 2. Zu¬ 
sätzlich müssen immer 12 Bytes ad¬ 
diert werden, die PR intern zur Ver¬ 
waltung benötigt. Dieses soll hier aber 
nicht weiter beachtet werden. Wie aus 
obiger Formel ersichtlich, benötigt ein 
Symbol gleicher Ausdehnung je nach 
Mode unterschiedlich viel Speicher¬ 
platz. Dieses läßt sich dadurch erklä¬ 
ren, daß je nach Mode ein Pixel (auf 
Grund der Anzahl der möglichen Far¬ 
ben) 1, 2 oder 4 Bits Speicherkapazität 
beansprucht. Folglich erscheinen die 
Symbole in horizontaler Richtung in 
Abhängigkeit vom Mode in unter¬ 
schiedlicher Größe. Die Pixel-Zahl pro 
Symbol ist dabei aber immer gleich. 
Die obige Formel gilt nur für im Spei¬ 
cher befindliche Symbole. Sollen diese 
auch angezeigt werden, so vergrößert 
sich der Speicherbedarf auf fast das 
doppelte. Die nötige Formel lautet: 

benötigterSpeicherplatz = (Y-Ausdeh- 
nung*(X-Ausdehnung/Mode- 
faktor))*2 + 12 

Wie Sprites angezeigt und bewegt wer¬ 
den, folgt später. Schließlich müssen 
Sie diese erst einmal definieren. Dieses 


geschieht mit dem Befehl “SPRITE“. 
Seine Syntax lautet: 

“SPRITE, Sprite-Nr., X-, Y-Position, 
> weitere Parameter < “ 

Dieser Befehl sieht auf dem ersten 
Blick zwar relativ einfach aus, bei ge¬ 
nauer Betrachtung ergibt sich jedoch, 
daß dieser einer der komplexesten Be¬ 
fehle innerhalb von PR ist und Sie es 
ihm zu verdanken haben, daß Sie Spri¬ 
tes komfortabler als auf einem C64 
programmieren können.Das Program¬ 
mieren der Matrix ist mit ihm nicht 
schwieriger als das Erstellen einer Gra¬ 
phik mit den BASIC-Befehlen PLOT 
und DRAW und somit auch einfacher 
als das Definieren neuer Zeichen mit 
dem SYMBOL-Kommando, da Sie mit 
ihm innerhalb der Matrix an beliebiger 
Stelle Punkte setzen oder ganze Linien 
ziehen können.Nach Angabe der obli¬ 
gatorischen Sprite-Nr., die bei nahezu 
allen Sprite-Befehlen verlangt wird, 
folgt die Angabe einer X- und Y-Posi¬ 
tion. Diese bezieht sich auf die Sprite- 
Matrix. Stellen Sie sich Ihre Matrix 
(deren Größe Sie vorher mit dem Be¬ 
fehl »SP.DEF« festgelegt haben) so 
vor, als wäre Sie eine Aneinanderrei¬ 
hung von einzelnen Punkten in mehre¬ 
ren Zeilen. Dabei hat der Punkt links 
oben innerhalb der Matrix die Koordi¬ 
nate OX/OY. Der nächste Punkt hat die 
Koordinate IX/OY, der Punkt der ge¬ 
nau unter diesem liegt, die Koordinate 
IX/lY.Sie können also durch Angabe 
dieser Koordinate festlegen, welchen 
Punkt Sie als erstes innerhalb der Ma¬ 


trix definieren wollen. Letzteres ge¬ 
schieht durch die folgenden Parameter, 
die in der Syntax-Beschreibung unter 
»weitere Parameter« fallen. Möchten 
Sie beispielsweise den vorher adres¬ 
sierten Punkt die Farbe 2 (entspre¬ 
chend INK 2) zuweisen, so hängen Sie 
eine »2« an. Damit ist die Farbe des 
Punktes festgelegt. Durch Angabe ei¬ 
ner Koordinate und der zugehörigen 
Farbe definieren Sie somit einen Punkt 
in der Sprite-Matrix. Es läßt sich jede 
Farbe angeben, eine »0« steht z.B. für 
»nicht gesetzt« und der Punkt hat das 
gleiche Aussehen wie der Bildschirm 
und hebt sich nicht von diesem ab. Die 
mögliche Zahl der verwendbaren Far¬ 
ben ist vom gewählten Mode abhängig 
(siehe »SP.DEF«). Es sind in Mode 0 
dieFarbenO — 15, inM.l 0 1 — 3 und 
in M.2 die beiden Nr. 0 und 1 möglich. 
Geben Sie eine höhere Farb-Nummer 
an, so wandelt PR diese automatisch in 
die entsprechende gültige Nummer 
um, aus Nr. 6 wird in Mode 1 folglich 
Farbe 2. Diese Automatik unterstützt 
das Verwenden von Symbol-Definitio¬ 
nen in allen 3 Auflösungen.Sie haben 
jetzt Ihren ersten Punkt festgelegt. Um 
alle nachfolgenden ebenfalls zu setzen, 
bedarf es jedoch nicht einer erneuten 
Positions-Angabe. Hierzu reicht es 
aus, weitere Zahlenwerte anzuhängen, 
wobei jede Zahl die Farbe eines Punk¬ 
tes festlegt und zwar in der Reihenfolge 
von links nach rechts. Wird die rechte 
Grenze der Matrix erreicht, so wird au¬ 
tomatisch in der folgenden Pixel-Zeile 
ganz links fortgefahren. Allerdings las- 
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sen sich nicht beliebig viele Parameter 
den Befehl mitgeben, da der BASIC- 
Interpreter nur max. 32 Parameter pro 
RSX-Befehl verarbeiten kann. Abzüg¬ 
lich der ersten drei Parameter bleiben 
pro Befehl max. 29 für die Matrix-De¬ 
finition übrig. Nun wäre es sicherlich 
äußerst langweilig und zudem sehr ver¬ 
schwenderisch (Speicherplatz!), wenn 
Sie z.B. eine ganze Matrix-Zeile auf 
ein und dieselbe Farbe setzen wollten 
und hierzu für jeden einzelnen Pixel 
ständig die gleiche Zahl angeben müß¬ 
ten. Glücklicherweise ist dieses nicht 
notwendig, denn der »SPRITE«-Befehl 
bietet hierzu eine andere Lösung an. 
Mit Hilfe von 2 Zahlen können Sie bis 
zu 255 Punkte auf die gleiche Farbe 
setzen. Dazu geben Sie im Befehl eine 
negative Zahl an (von —1 bis —255) 
und sofort anschließend die Nummer 
der Farbe, welche für die mehreren Pi¬ 
xel gelten soll. Die ins positive gewan¬ 
delte Zahl ergibt die Menge der Para¬ 
meter, welche alle gleichfarbig wer¬ 
den. Wenn Sie z.B. folgende Parame- 
terisierung verwenden: 

“SPRITE,0,0,0,l,2,-5,3,2“ 

dann bedeutet das 

ICON/Sprite-Nummer: 0 
Position des ersten Pixels; 0X,0Y 
(links oben) 

Farbe dieses Pixels: 1 
Farbe des nächsten Pixels: 2 

danach folgen 5 Pixel mit der Farbe 3 
und ein Pixel mit der Farbe 2 (Position 
8X,0Y). 

So läßt sich mit mehreren Befehlen 
schnell und äußerst einfach ein Icon 
oder Sprite definieren, ohne ein Com¬ 
puter-Profi zu sein und mit PEEK, 
POKE oder CALL zu hantieren.Auch 
vorhandene BUdschirmgraphik läßt 
sich mit dem Befehl »SP.GET2« als 
Sprite-Matrix einiesen. Die Größe des 
Bildschirmausschnittes, welcher in 
eine Sprite-Matrix umgewandelt wird, 
ist äquivalent zum Format des Symbo- 
les.Um ein Sprite auf dem Bildschirm 
darstellen zu können, bedarf es eines 
weiteren Schrittes. Es muß erst »einge¬ 
schaltet« werden. Bei diesem Vorgang 
wird zusätzlich Speicherplatz reser¬ 
viert, da ja die Bildschirmgraphik ge¬ 
speichert werden muß, wenn ein Sym¬ 
bol angezeigt wird. Das Einschalten 
geschieht mit dem Befehl »SP.ON«. 
»Ausschalten« können Sie ein Sprite, 
um z.B. Speicherplatz zu sparen, mit 
dem Befehl »SP.OFF«. Wenn ein Spri¬ 
te eingeschaltet ist, kann es auf dem 
Bildschirm dargestellt werden, z.B. 
mit »SP.PUT«. Näheres erfahren Sie 


ein wenig später.Da dies bisher sehr 
viel Theorie war, habe ich mir, zur bes¬ 
seren Verständlichkeit und damit Sie 
ein wenig Praxis bekommen, das Titel- 
logo dieses Heftes vorgenommen und 
es, ein wenig modifiziert, in ein Ma¬ 
trix-Raster übertragen. Das Ergebnis 
finden Sie in Abbildung 1. Ergänzend 
zeigt Abbildung 2 die Bedeutung der 
Punkte. Versuchen Sie jetzt, diese Ma¬ 
trix in »SPRITE«-Befehle zu Übetragen 
und vergleichen Sie Ihr Ergebnis mit 
dem Programm l, welches dieses Sym¬ 
bol erzeugt und anzeigt.Bevor Sie das 
Programm starten, müssen Sie erst mit 
Hilfe von »SP.MEMORY« einen Spei¬ 
cherbereich für das ICON resevieren. 
Dieser muß mindestens &???? Bytes 
umfassen. Den Umfang sollten Sie sel¬ 
ber errechnen. Das Programm erklärt 
sich eigentlich von selbst, so daß jetzt 
Punkt 3 an der Reihe ist. 


Darstellen und Bewegen 
der Symbole 


Bis hier haben wir in erster Linie das 
behandelt, was sowohl für Ikonen und 
Sprites gleichermaßen gilt. Jetzt wen¬ 
den wir uns mehr den Sprites zu. Wie 
diese erzeugt werden, wissen Sie. Wie 
erfolgt jedoch programmtechnisch ihre 
Steuerung und Bewegung auf dem 
Bildschirm? 

Der Grundbefehl dazu lautet »SP.PUT, 
Sprite-Nr., X-Position, Y-Position 
(Darstellungs-Mode) »Hiermit plazie¬ 
ren Sie das Symbol auf dem Bild¬ 
schirm. Die anzugebene Position kann 
sich in folgenden Grenzen bewegen; 
Mode 2: 640 (X) * 200 (Y) Punkte Auf¬ 
lösung (mögliche Koordinaten; 
0-639X,0-199Y) 

Mode 1: 320X*200Y (0-319X) 
ModeO: 160X*200Y (0-159X) 

Dabei ist zu beachten: Jede X-Koordi- 
nate muß in Mode 2 durch 8, in Mode 1 
durch 4 vmd in Mode 0 durch 2 divi¬ 
dierbar sein, ansonsten wird das Sym¬ 
bol nicht angezeigt. Zusätzlich ist noch 
die X-Koordinate 0 erlaubt. Werden 
größere als die vorgenannten X-Koor- 
dinaten verwendet, so wird das Sprite 
zwar angezeigt, es befindet sich aber 
zeilenversetzt auf dem Monitor. Die Y- 
Koordinaten werden im 200er System 
angegeben. Eine Sprite Y-Koordinate 
ist also immer halb so groß wie die ent¬ 
sprechende Graphik-Y-Koordinate, 
wo max. 400 Punkte verwendet wer¬ 
den. Sie haben jetzt ein Sprite ange¬ 
zeigt. Entfernen geht noch einfacher. 
Dazu reicht der Befehl »SP.GET, Spri¬ 


te-Nr. (ohne Koordinaten)«. Dann wird 
das Sprite entfernt und der alte Bild¬ 
schirminhalt wird wieder eingeblendet. 
Bevor wir jetzt zum eigentlich span¬ 
nenden kommen, dem Bewegen der 
Sprites, untersuchen wir den wahlwei¬ 
se anzugebenden Darstellungs-Mode. 
Hier gibt es 5 Möglichkeiten: 

0 — Force (Standard) 

1 - XOR 

2 - AND 

3 -OR 

4 - NOT 

Dieser Mode gibt an, wie das Sprite mit 
der »alten« Bildschirmgraphik ver¬ 
knüpft wird. Bei Option »0«, die auch 
Standard ist, erfolgt keine Verknüp¬ 
fung, die »alte« Graphik wird über¬ 
schrieben. Die Varianten 1 bis 3 ent¬ 
sprechen den bekannten Möglichkeiten 
aus dem Graphik-Bereich des CPC, 
wobei Option 3 besonders interessant 
ist, da dann das Sprite »transparent« 
über den Hintergrund gelegt wird. Op¬ 
tion 4 bewirkt ein invertieren der Pixel 
des Sprites. Der Darstellungsmode 
kann bei jedem Befehl zur Darstellung 
oder Bewegung von Sprites angegeben 
werden. Er bleibt für alle Ausgaben be¬ 
stehen, bis ein anderer programmiert 
wird. 

Das Bewegen geschieht mit dem Befehl 
»SP.MOVE« und seinen beiden Varia¬ 
tionen. Der erste Grundbefehl bewegt 
das Sprite an die neu angegebene Posi¬ 
tion weiter, während »SP.MOVER« 
das Sprite um eine Differenz, ähnlich 
wie dies bei dem BASIC-Befehl MO¬ 
VER der Fall ist, versetzt. Der mäch¬ 
tigste Befehl ist »SP.MOVER2«. Die¬ 
ser entfernt nicht nur das Sprite an der 
alten Position und bewegt seine Posi¬ 
tion um den gewünschten Abstand wei¬ 
ter, er bildet an der neuen Position an 
dessen Stelle zusätzlich ein anderes 
Sprite ab. Damit wird das Erzeugen 
von sich »bewegenden« Figuren unter¬ 
stützt. 

Um eine flimmerfreie Darstellung der 
Sprites zu ermöglichen,wird die Ein¬ 
blendung dieser mit dem Bildrücklauf 
synchronisiert. Falls Sie mehrere Spri¬ 
tes gleichzeitig bewegen wollen, so 
müssen Sie diese Funktion deaktivie¬ 
ren und die Synchronisation durch das 
BASIC-Programm durchführen lassen, 
z.B. mit den Event-Befehlen oder mit 
dem PR-Befehl “FRAME“ bzw. durch 
»CALL &BD19«, da letzteres schneller 
ist.Wenn nun Sprites über den Bild¬ 
schirm schweben, so kommt es sicher¬ 
lich vor, daß sie mit anderer Graphik in 
Berührung kommen. Dann wäre es 
wünschenswert, daß diese je nach Fall 
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02 Anrttft . 
0! NtB«! .. 

04 Nl««2 .. 
0S StraS» . 
06 0>Z/Orl 
07 T«1*(en 


08 A^redB . 

0? Ceagraclispgrtner . 

10 0r|rch* . 

11 Adrcia-Ktnnzcichcn ... 

12 Uautz . 

13 6g»er4ur>gen . 


I ‘> Er4tBaen/an4ffrn 2 *> DryCbtft 3 *> S«rt. Liate 
Deinp Wahl ...: 


Integrierte Software: 

CJUBOl 

System 

Die Software 


nur 


398 .- 


für den neuen 
Schneider PC 1640 


»»» ADRESSEN - yERUALTUNG »»» 


Dies alles ist auf einer Diskette; 


ANDERN $•«< - NuM«r : 2 

01 SutK»»» IWztll ...liBeycon 

02 Anred - 

03 Haeei T*.1 : KUNDEN 
04 Naee2 



Adressen-Verwaltung 

- suchen nach jedem Zeichen, Wort 
oder Satz 

- reorganisationsfrei 

- Ausgabe einer sortierten Liste 
über Drucker oder Bildschirm 

- Merge Kartei-Karte, 
erfassen/ändern 

- über 30000 Adressen möglich 

Kartei-Kasten 

- Gliederung nach Hauptgruppe, 
Untergruppe, Bereich und Zitat 

- suchen nach jedem Zeichen, 

Wort oder Satz 

- Kopierfunktion Kartei-Karte 

- Kopierfunktion Zeile 

- Druckfunktion Haupt- 
Untergruppe, Bereich 

- Rechenfunktion (2 unabhängig 
voneinander arbeitende 
Rechenspeicher) 

- Anwendungsbeispiele: 
Lagerverwaltung, Bücher, Video, 
Zeitungsartikel etc 

- Erstellung von bis max. 

99 Karteikästen 

- über 30000 Karteikarten pro 
Kartei-Kasten 


i/lEYCOM 

SOFTWARE 


Textbearbeitung 

- Merge Textblock 

- Mailmerge 

- Merge Kartei-Karte 

~ suchen und ersetzen 

- Randausgleich 

- Zeilenumbruch 

- erstellen Text für Serienbrief 

- alle Funktionen werden 
automatisch angezeigt 

Serienbrief 

- selektieren nach Name, 
Postleitzahl, Branche 

Etiketten-Druck 

- automatisches Drucken der für 
den Serienbrief selektierten 
Anschriften 

- freie Gestattung 

Handbuch 

- ca. 100 Seiten in 
deutscher 
Sprache 
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»vor« oder »hinter« der Graphik her¬ 
schweben können. Auch das ist mit 
Profi RSX möglich. Sie können mit 
dem Befehl »SP.PRIO« (-rität) für je¬ 
des einzelne Sprite separat festlegen, 
ob dieses beim Zusammentreffen mit 
vorhandener Graphik diese überblen¬ 
den soll oder ob die Graphik Vorrang 
hat. Allerdings gibt es jedoch Fälle, wo 
ein Sprite weder »vor« noch »hinter« 
der Graphik herschweben soll, sondern 
wo Sie bei einer Kollision schnell rea¬ 
gieren müssen. Dazu hat Profi RSX 
eine komplette Kollisionskontrolle in¬ 
tegriert. Diese meldet sofort, wenn ein 
»Crash«auf dem Bildschirm stattgefun¬ 
den hat. Die Meldung kann derart ge¬ 
schehen, daß bei Auftreten der Situa¬ 
tion automatisch in ein Unterpro¬ 
gramm oder in eine andere Programm¬ 
zeile verzweigt wird. In den Unterpro¬ 
grammen oder der angegebenen Zeile 
muß Ihre (BASIC-) Kollisionsbehand¬ 
lung stehen. Nach Abschluß dieser 
kann mit einem speziellen Befehl 
(»SP.RETURN«) an der gleichen Stelle 
wie vor der Kollision fortgefahren 
werden. 

Um die Funktion zu aktivieren, muß 
Profi RSX die Programmzeile des Un¬ 
terprogrammes (mit »SP.GOSUB«) 
oder eine normale Programmzeile (mit 
»SP.GOTO«) mitgeteilt werden. Bei 
Auftreffen eines Sprites auf ein Hin¬ 
dernis wird dann sofort in die Zeile 
verzweigt, sofern die Automatik mit 
»SP.KOL« aktiviert worden ist. Als 
Hindernis wird alles das verstanden, 
was nicht in INK 0 gezeichnet ist. 

Mit der letzten Routine nimmt Ihnen 
Profi RSX fast alle Programmierarbeit 
fürz.B. ein Hindernisspiel ab. Die An¬ 
wendung und ihre Auswirkungen in 
der Praxis demonstriert das im Anhang 
abgedruckte Spiel Nr.l (Programm- 
Nr. 2). Bei diesem Spiel geht es darum, 
einen »Ball« durch ein vorgegebenes 
Labyrinth zu steuern. Sie müssen von 
der linken oberen in die rechte obere 
Ecke finden. Dabei sollten Sie nach 
Möglichkeit die »Mauern« nicht berüh¬ 
ren. Neben diesem Labyrinth können 
Sie beliebig viele andere per Zufall er¬ 
zeugen lassen. Dort können Sie die 
Mauern durch Betätigung der Feuer- 
Taste überspringen. Allerdings hat das 
jedesmal 50 Straf-Punkte zur Folge. 
Dieses Spiel soll Ihnen in erster Linie 
die Kollisions-Kontrolle demonstrie¬ 
ren. Sie sollten das Spiel deshalb aus¬ 
nahmsweise nicht vorrangig spielen, 
sondern eher das Listing »studieren«. 
Hiermit sind alle wesentlichen Funk¬ 
tionen dieses Teiles beschrieben wor¬ 
den. Zu allerletzt müssen wir noch 


kurz das Thema Geschwindigkeit be¬ 
handeln. Natürlich sollten Sprites & 
Ikonen so klein wie möglich sein. Au¬ 
ßerdem können Sie nicht 10 Sprites 
gleichzeitig bewegen, da es sich beim 
CPC schließlich um einen Z80-Rech- 
ner mit effektiv 3,3 Mhz Taktfrequenz 
handelt. Auch die Kollisions-Kontrolle 
sowie die Prioritäts-Verwaltung kosten 
Zeit. Aber bei vernünftiger Program¬ 
mierung lassen sich gute Ergebnisse er¬ 
zielen. Dies gilt besonders für die abso¬ 
lut flimmerfreie und fließende Bewe¬ 
gung der Sprites. 

Falls Sie mehrere Teile von Profi RSX 
gleichzeitig in Ihren Programmen ver¬ 
wenden, so sollten Sie sich das eben¬ 
falls in diesem Heft abgedruckte Pro¬ 
gramm »RSX-Compiler« ansehen, da 
dieses eine Geschwindigkeitssteige¬ 
rung bringt.Das Beispiel-Programm 
soll die Programmierung der Sprites 
demonstrieren. Sie sind allein schon 
aus Platzgründen sehr kurz und ein¬ 
fach, so daß sie natürlich nicht beson¬ 
ders anspruchsvoll sind. Letzteres soll¬ 
ten sie auch nicht sein, da hier der 
Lemwert im Vordergrund steht. Die 
Programmierung von »Super-Spielen« 
überlasse ich Ihnen! 

Damit Sie letzteres (wenn Sie möchten) 
in Angriff nehmen können, sollten Sie 
zürst den BASIC-Lader ablippen, die¬ 
sen an Ihren Rechner eventuell anpas¬ 
sen und danach als erstes die Befehlsli¬ 
ste dieser Folge genau durchlesen. 
Wenn Sie sich dann noch die Program¬ 
me angesehen haben, können Sie mit 
dem Programmieren beginnen. Viel 
Spaß! 

Anm.: Für diejenigen, die keine »Lust« 
haben, Ikonen & Sprites per Hand 
(bzw. eher »Kopf«) zu erstellen, folgt 
nächsten Monat unter anderem ein 
komfortabeler Icon- und Sprite-Editor. 
Zu beachten ist, daß Sie, bevor Sie den 
Data-Loader starten, den Speicherbe¬ 
reich absichem und zwar durchME- 
MORY &7fff. Anschließend sichern 
Sie den M-Code (& den BASIC-Loa- 
der) dann sofort auf Kassette/Diskette 
(vor der Initalisierung!). Den M-Code 
sollten Sie auf jeden Fall unter dem fol¬ 
genden Namen speichern: 

SAVE“SP-464‘Sb,&8000,2214 

Besitzer eines 664 bzw. 6128 ändern 
die Zeichenfolge >464< wie üblich 
wieder in >664< bzw. >6128<. 

Um jetzt mit Profi RSX arbeiten zu 
können, befolgen Sie beim Laden bitte 
folgende Reihenfolge: 

MEMORY &7fff 
LOAD “G1-464.BIN“ 


ln den 

Matr 

xen dieser folge en 

t SD reche 11 

die Sj 

nboi e 

folgenden Farben; 



O s 

Farbe 3 (weiD) 



© 5 

Farbe 2 (gelb) 



• ' 

Farbe 1 (rot) 



O 5 

Farbe 0 (schwarz) 


(Die Farben gelten njr für Programm 1 

(Icon-Beispiel)) 


Ahb. 2 


LOAD “G2-464.BIN“ 

LOAD ‘‘S-464.BIN“ 

CALL &9FA0 
CALL &96B0 
CALL &8F90 
LOAD “T-464.BIN“ 

CALL &87E0 
LOAD “SP-464.BIN“ 

CALL &8000 

ACHTUNG: Der M-Code dieser Fol¬ 
ge überlappt sich mit dem des letzten 
Teiles. Dieses ist nicht weiter schlimm, 
da dem nur einige Initialisierungs-Rou¬ 
tinen des vierten Teiles zum Opfer fal¬ 
len, die nur bei der Initialisierung ge¬ 
braucht werden. Aus diesem Grund 
muß der vierte Teil immer vor der Fol¬ 
ge 5 geladen und initialisiert werden; 
Befolgen Sie deshalb unbedingt die 
oben vorgestellte Lade-Reihenfolge. 
Der Teil 4 darf unter keinen Umstän¬ 
den durch »CALL &87e0« ein zweites 
Mal aufgerufen werden; Am besten ist 
es, wenn Sie die Ladefolge wie oben 
abgedruckt in Ihr Programm einbinden 
und sicherstellen, daß dieses nur ein¬ 
mal angesprungen wird! 

Bei Anwendung der obigen Regel kann 
eigentlich nichts mehr schief gehen. 


ICON & -SPRITE«-Befehle 
(Teil 1) 


Dieser sehr umfangreiche Teil bietet 
sehr viele Befehle zur Erzeugung und 
Verwaltung von »Sprites/ICON’s« 
(d.h. von ein- und ausblendbaren, ver¬ 
schiebbaren Bildschirmteilen). Da die¬ 
se »Sprites« software-mäßig gesteuert 
werden, sind sie keine Sprites in der ur¬ 
sprünglichen Definition. Sie werden 
dennoch ab jetzt als »Sprites« be¬ 
zeichnet. 


Grundsätzlich gilt 


— Alle Sprite/ICON-Befehle beginnen 
mit dem Teil > SP. < (besonders 
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wichtig ist der Punkt!). — Falls Varia¬ 
blen verlangt werden, so müssen dies 
immer Integer-Variablen sein. 

— Bei Variablen muß immer deren 
Adresse (durch den »Klammeraffen«) 
übergeben werden, sonst sind die Fol¬ 
gen nicht vorhersehbar, falls etwas in 
die Variablen geschrieben wird! 

— Wie hier allgemein gültig, sind die 
Parameter, die in dieser Auflistung in 
Klammem gesetzt sind, optional und 
können entfallen. 

— Es können maximal (theoretisch) 
65536 Sprites/ICON’s verwaltet wer¬ 
den, so daß die Nummer eines Spri¬ 
tes/ICON’s von 0 bis 65535 gehen 
kann. 

WICHTIG: Die Sprite/ICON-Num- 
mern dürfen nur in aufsteigender Rei¬ 
henfolge vergeben werden. Das bedeu¬ 
tet, daß die Nummer 5 nur vergeben 
werden darf, wenn schon Spri¬ 
tes/ICON’s mit den Nummern 0 bis 4 
bestehen. 

— Die Ausmaße eines Sprites können 
jederzeit verändert werden! 

— Die Ausmaße werden immer in Pi¬ 
xel angegeben. 

— ACHTUNG: Alle Koordinaten wer¬ 
den in »tatsächlich vorhandenen« Pixel 
angegeben! Die max. Auflösung je 
nach Mode beträgt also: 

640*200 in Mode 2 
320*200 in Mode 1 
160*200 in ModeO 

Die max. Y-Koordinate beträgt immer 
199. Graphik-(Y)Koordinaten müssen 
deshalb immer durch zwei geteilt wer¬ 
den. In X-Richtung gilt das gleiche bei 
den Modes 1 und 0. Um ein ICON/ 
Sprite immer an der gleichen Position 
(z.B. 400X/100Y in Mode 2) zu haben, 
muß es in Mode 1 die Koordinaten 
200X/100Y und in Mode 0 die Koordi¬ 
naten lOOX/lOOY besitzen. Von einer 
Auflösung zur nächsten findet immer 
eine Halbierung (oder Verdopplung) 
statt. Nur die Y-Koordinaten bleiben 
gleich! 

— Es sollte niemals eine Sprite-Num- 
mer in einem Befehl verwendet wer¬ 
den, wenn dieses nicht existiert (Aus¬ 
nahme: bei SP.DEF) 

— Ab jetzt werden teilweise die Wörter 
»SPRITE/ICON« durch ein »S« abge¬ 
kürzt. 

— Alle Befehle gelten sowohl für Spri¬ 
tes als auch ICON’s. Diese unterschei¬ 
den sich in Ihrer Funktion und Anwen¬ 
dung nicht. Die unterschiedlichen Na¬ 
men sind nur auf die Anwendungsbe¬ 
reiche abgestimmt. 

83.SP.MEMORY, oberste Speicher¬ 
stelle, unterste Speicherstelle, weist 


der Sprite-Verwaltung von PROFI- 
RSX einen Speicherbereich für die Ab¬ 
lage der Sprites zu. Diese Festlegung 
muß immer vor dem Definieren der 
Sprites geschehen. Vor Anwendung 
dieses Befehles muß der entsprechende 
Speicherbereich durch den BASIC-Be- 
fehl »MEMORY unterste Speicherstel- 
le-1« geschützt werden. Der Bereich 
wird vollkommen gelöscht, kann also 
zum Löschen aller Sprites verwendet 
werden. Wegen der vorgenannten Aus¬ 
wirkung sollte der Befehl nur einmal 
angewendet werden. 

84. SP.DEF, S-Nr., X-, Y-Ausmaße, 
Mode, Adresse Integer-Variable- Defi¬ 
niert ein Sprite mit der Nummer, wel¬ 
che als erster Parameter angegeben 
wurde. 

Der entsprechende Speicherplatz wird 
reserviert. Die Größe wird in Pixel für 
die X- und Y-Richtung angegeben. Die 
tatsächliche Byte-Größe wird automa¬ 
tisch berechnet, wozu das Programm 
den vierten Parameter benötigt. Dieser 
gibt den Mode an, in dem das Sprite 
später verwendet werden soll. Dieser 
Mode ist jedoch völlig unabhängig 
vom momentanen Bildschirm-Mode. 
Der letzte Parameter dient dazu, daß 
das Programm dem Benutzer mitteilt, 
ob die Aktion erfolgreich war. Nach 
Abschluß bedeuten die Werte, die in 
dieser Variablen enthalten sind: 

0 / kein Erfolg (Gründe können z.B. 
sein: Kein Speicherplatz vorhanden, 
Nummer größer als letzte Nummer -I-1, 
usw.)! 

1/ Erfolgreich 

85. SPRITE, S-Nr., X-, Y-Koordina¬ 
te, weitere Parameter 

— Nach Angabe der Nummer können 
beliebig viele Parameter folgen (bis zu 
31, bedingt durch den BASIC-Interpre¬ 
ter). Zuerst werden die Koordinaten 
des ersten Punktes innerhalb der Spri- 
te-Matrix angegeben. Diese können 
beliebig sein, sollten jedoch innerhalb 
der Ausdehnung des Sprites liegen (sie¬ 
he SP.DEF).Sie dienen dazu, damit 
PROFI-RSX weiß, welcher Pixel als 
erstes definiert werden soll. Nur so ist 
es überhaupt möglich, mehr als 29 Pi¬ 
xel zu definieren. 

ACHTUNG: Die X-Koordinate muß 
bei MODE 2 des Sprites durch 8, bei 
MODE 1 durch 4 und bei MODE 0 
durch 2 zu dividieren sein, sonst kehrt 
die S-Verwaltung zu BASIC zurück. 
Zusätzlich ist der Wert 0 erlaubt. Die 
Y-Koordinaten können beliebig sein. 
Die Zählung der Koordinaten fängt in¬ 
nerhalb der Matrix links oben an. Da¬ 
bei hat die oberste Zeile die Nr. 0, die 


zweite die Nr. 1 usw. Gleiches gilt für 
die Pixel einer Zeile. Der am weitesten 
links liegende Pixel hat die kleinste 
Nummer (0;), der am weitesten rechts 
liegende die höchste Nummer. 

Nach dieser Angabe folgen die Para¬ 
meter zum Setzen der einzelnen Pixel 
innerhalb der Sprite-Matrix. Jeder der 
nun folgenden Parameter steht für ei¬ 
nen Punkt, der Wert (0—255) dieses 
Parameters bestimmt die Farbe des 
Punktes. 

AUSSNAHME: Ist ein Parameter ne¬ 
gativ, dann werden soviele Pixels, wie 
durch den ins Positve gewandelten Pa¬ 
rameter (Wert 1 —255) angegeben, auf 
den Wert des darauffolgenden Param- 
ters gesetzt. Das ist auf den ersten Blick 
vielleicht etwas verwirrend, deshalb ist 
hier ein Beispiel zur Erklärung ange¬ 
hängt. 

BEISPIEL: 

SPRITE,1,0,4,1,2,3,4,-6,3,2 

Der Befehl bewirkt im einzelnen: 
Sprite/Icon-Nummer: IDie X-Position 
des ersten Pixels ist in der 5.Zeile an 
Position 0.Pixel 0/5.Zeile: Ink 1 
‘T/“: Ink2 
“2/“: Ink 3 
“3/“: Ink 4 

Pixel 4-10/5.Zeile: Ink 3 
(bedingt durch das Minus-Zeichen)Pi- 
xel 11/5.Zeile: Ink 2 
— Wenn das Ende einer Pixel-Zeile er¬ 
reicht ist, dann wird automatisch in der 
nächsten Zeile weitergemacht. Ist das 
Ende der gesummten Sprite-Matrix er¬ 
reicht, so wird die Routine abgebro¬ 
chen. 

Eine ausführliche Erklärung finden Sie 
im Begleitarfikel dieser Folge. 

In der nächsten Folge wird zur weite¬ 
ren Vereinfachung ein Sprite-Editor 
abgedruckt (s. SP.EDIT). 

86. SP.ON, S-Nummer, Adresse Inte¬ 
ger-Variable. Jedes Sprite muß (aus 
Speicherplatzgründen) eingeschaltet 
werden, bevor es auf dem Bildschirm 
dargestellt werden kann. Andernfalls 
ist keine Darstellung möglich. 

Inhalt der Variable: 

0 > kein Erfolg (aus Speicherplatz¬ 
mangel) 

1 > Erfolg 

87. SP,OFF, S-NR., Adresse Integer 
Variable- Schaltet ein Sprite aus und 
verhindert damit die Bildschirmdar¬ 
stellung. Auf dem Bildschirm befindli¬ 
che Sprites können hiernach nicht mehr 
vom Bildschirm gelesen werden. Der 
Befehl ist z.B. dann sinnvoll, wenn 
Speicherplatz gespart werden muß 
oder um ein Sprite zu sperren. 
Variable: wie üblich 
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88. SP.DELETE, S-Nr., Adresse Inte¬ 
ger Variable, löscht ein Sprite im Spei¬ 
cher. Es ist nicht sinnvoll, viele Sprites 
zu löschen, um dafür andere anzulegen 
(Ausnahme: das Sprite mit der z.Z. 
höchsten Nummer). 

Es kann jedes Sprite gelöscht werden, 
es muß nicht das mit der höchsten 
Nummer sein. 

89. SP.PRIO, S-Nr., Priorität 

— weißt dem Sprite seine Priorität zu. 

— Unter Priorität versteht man hier, ob 
es beim Zusammentreffen mit einem 
anderen Objekt auf dem Bildschirm 
»vor» oder »hinter« diesem herschwe¬ 
ben oder abgebildet werden soll. 

— Eine Priorität von 1 bewirkt, daß das 
Sprite »hinter« dem Objekt her¬ 
schwebt, das Objekt auf dem Bild¬ 
schirm in diesem Fall also Vorrang hat. 
Eine 0 bewirkt das Gegenteil, das Spri¬ 
te wird also »vor« dem Objekt darge¬ 
stellt. 

Zusammengefaßt: 

Priorität l = > Vordergrund (alles 
was nicht in INK 0 gezeichnet ist) hat 
Vorrang! 

Priorität 0 = > Sprite 

— Wenn die Überdeckung nur einen 
Teil des Sprites betrifft, so wird der 
nicht betroffene Teil natürlich normal 
dargestellt. 

90. SP.KOL, EIN/AUS 

— Dieser Befehl ist wichtig in Verbin¬ 
dung mit den beiden nachfolgenden Be¬ 
fehlen. 

Hierdurch kann die Kollisionskontrolle 
(siehe Pos. 92-94) ein- (1) oder aus- (0) 
geschaltet werden. 

Parameter = 1: schaltet SP.GOTO = 
SP.GOSUB ein Parameter = 0: schal¬ 
tet SP.GOTO= SP.GOSUB aus 


91. SP.GOTO, Zeilennummer 
(0-65535) 

— Dieser Befehl stellt eine der Stärken 
von PROFI-RSX dar. Mit ihm ist es 
möglich, daß das laufende BASIC-Pro- 
gramm bei einer Kollision eines Sprites 
unterbrochen wird und daß der BASIC- 
Interpreter an die angegebene Pro¬ 
grammzeile springt. 

Falls also die Kollisionskontrolle mit 
dem Befehl-Nr. 90 eingeschaltet wor¬ 
den ist, springt das Programm bei einer 
vorliegenden Kollision eines Sprites in 
die definierte Zeile. Die Zeilennum¬ 
mer sollte PROFI-RSX zu Beginn ei¬ 
nes Programms mitgeteilt werden, 
kann aber ständig geändert werden. 
Der Befehl schaltet die Kollisionskon¬ 
trolle aus. Sie muß hinterher erst wie¬ 
der mit >SP.KOL< eingeschaltet 
werden. Ein event. vorhandenes GO- 
SUB (siehe nächste Pos.) wird ge¬ 
löscht. 

ACHTUNG: Eine Rückkehr zu der 
vorher bearbeiteten Zeile findet nicht 
statt. Dies kann nur durch entsprechen¬ 
de Programmierung in BASIC erreicht 
werden (falls gewünscht). Wenn im¬ 
mer zurückgesprungen werden soll, so 
ist der Befehl Nr.92 anzuwenden. 

Falls die Zeilennummer ungültig (nicht 
vorhanden) ist, wird im Programm 
normal fortgefahren. 

ACHTUNG: Bei der automatischen 
Zeilenumnumerierung in BASIC (RE- 
NUM) werden die Zeilennummern bei 
den Befehlen Nr. 91 & 92 nicht mit ge¬ 
ändert! 

92. SP.GOSUB, Zeilennummer 
Dieser Befehl funktioniert fast genauso 
wie Pos. 91, mit dem Unterschied, daß 
ein Unterprogramm aufgerufen wird. 
Eine Rückkehr aus dem Unterpro¬ 
gramm ist nur mit Befehl Nr. 93 mög¬ 
lich. 

93. SP.RETURN (keine Parameter) 
Trifft der BASIC-Interpreter auf diesen 
Befehl, so wird das Unterprogramm 
beendet und der Programmablauf an 
genau der Position fortgesetzt, wo sich 
der Interpreter befand, als die Kollision 
eintrat. 

94. SP.FLAG, Adresse einer Varia¬ 
blen 

Hiermit können Sie erfahren, ob zwi¬ 
schenzeitlich eine Kollision vorgekom¬ 
men ist. 

Inhalt der Variable=0: keine Kollision 
Inhalt der Variable = 1: Kollision. 
ACHTUNG: Sowohl der Befehl 
>SP.GOTO< wie auch >SP.GO¬ 
SUB < setzen dieses Flag auf »0«, 
wenn eine Zeile angesprungen wird. 


Auch nach dieser Abfrage wird es wie¬ 
der auf »0« gesetzt. So ist es möglich, 
festzustellen, ob nach einer Abfrage 
eine erneute Kollision stattgefunden 
hat. 

95. SP.LET, 1. S-Nr., 2. S-Nr., 
Adresse Integer Variable- Funktion: 
Weist dem ersten angegebenen 
ICON=Sprite die Werte (Matrix, 
Mode, Ein/Aus, usw.) des zweiten zu. 
Der Befehl sollte nur angewendet wer¬ 
den, wenn keines der beiden ICON’s/ 
Sprites auf dem Bildschirm ist. 
Variable: wie üblich 

96. SP.PUT, S-Nr., X-Position 
(0-raax. 159/319/639), Y-Position 
(0-199) (, Darstellungs-Mode) 

Stellt ein Sprite/ICON auf dem Bild¬ 
schirm an der X-, Y-Position dar. Da¬ 
bei wird der event. angegebene Dar¬ 
stellungsmodus berücksichtigt. Dieser 
kann sein: 

0 - FORCE (Standard) 

1 - XOR 

2 - AND 

3 - OR 

4 - NOT 

ACHTUNG: Die X-Koordinate muß in 
MODE 2 (80 Z./Z.) durch 8, in MODE 
1 durch 4 und in MODE 0 durch 2 teil¬ 
bar sein, da Sprites und ICON’s mo¬ 
mentan nur auf Byte-Grenzen beginnen 
können. 

Beachten Sie die max. X-Auflösung 
(160/320/640 Punkte) und Y-Auflö- 
sung (200 Reihen)! 

Ist eine Koordinate zu groß, ^o wird 
das ICON = Sprite dennoch abgebildel, 
seine Lage ist jedoch über den Bild¬ 
schirmrand hinaus bewegt worden, so 
daß es ab dem gegenüberliegenden 
Rand dargeteilt wird. 

Die Darstellung wird mit dem Bildauf¬ 
bau synchronisiert. Dieses läßt sich mit 
> SP.FRAME < abschalten. 

Die Zählung der X-, Y-Koordinaten 
erfolgt sonst wie bei den Graphik-Be¬ 
fehlen, mit dem Unterschied, daß der 
Nullpunkt (0X=0Y) links unten im 
Bildschirm liegt. 

97. SP.GET, S-Nr.2 

Entfernt ein Sprite/ICON vom Bild¬ 
schirm. Eine Positionsangabe ist nicht 
nötig. 

98. SP.MOVE, S-Nr., X-, Y-Position 
(, D.-Mode) 

Bewegt ein Sprite von der derzeitigen 
Position zu der gewünschten. Ein neu¬ 
er Darstellungsmode kann angegeben 
werden (siehe > SP.PUT<). 
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Das erste 


Joyce Sonderheft 

ist bei DMV noch zu haben! 


Für Joyce-Besitzer haben wir das erste Sonderheft fertiggestellt. Für alle denen 
die Joyce-Rubrik in der PC International nicht genügend Stoff für einen ganzen 
Monat bieten konnte, stellt dies Sonderheft eine Fülle von Informationen, Tips 
und Tricks und Programmen zur Verfügung. 

Dies Heft deckt das ganze Interessenspektrum eines Joyce-Besitzers ab - 
vom Basictip bis zur Erweiterung mathematischer Funktionen, von der Drucker- 
einsteliungsroutine bis zum kompletten Assembler/Disassembler ist alle enthal¬ 
ten. was Joycer’s Herz höher schlagen läßt. 

Aus dem Inhalt: 

- ein komfortabler Maskengenerator erlaubt die Erstellung von Bildschirm¬ 
masken für selbstgeschriebene Programme aller Art, ohne umständlich mit 
PRINT-Anweisungen hantieren zu müssen. 

- eine Bauanleitung ermöglicht Ihnen, auf einfache Weise einen Joystick an 
den Joyce anzuschließen. Die Richtungen des Joysticks werden auf Pfeilta¬ 
sten gelegt. 

- fertig ist die «Fernbedienung« 

- für LocoScript-Freunde bietet das Heft einen Beitrag über Fußnoten unter 
LocoScript 

- ein besonderer Leckerbissen für CP/M-Fans wird mit dem Beitrag XBtOS 
serviert, 

- zur Entspannung zwischendurch stehen kleine Spiele zur Verfügung, u.a. 
ein Mau-Mau mit definierbarem Level. 

- last not least: Tips und Tricks zu Basic, Logo, dBase und vielem anderem 
mehr. 

Das JOYCE-Sonderheft 1 ist noch direkt beim Verlag für DM 20,- erhältlich. 
Sämtliche im Sonderheft enthaltenen Programme sind auch auf 3“-Disk {Data- 
box) zum Preis von DM 30,- beim Verlag erhältlich. 



Joyce-sonderheft Nr. i • loyce-Llteratur ■ Software 


...sonnige Urlaubsgrüße, Euer Joyee. 



Bestellkarte ausfüllen und absenden an: 

DMV Daten- und Medien-Verlagsgesellschaft mbH 
Postfach 250 ■ Fuldaer Str. 6 
3440 Eschwege • Tel. (0 56 51) 87 02 


»Hallo Ihr lieben Oaheimgebllebenen! 

Eigentlich habe ich mir meinen Urlaub ganz anders vorgestellt: 'n biSchen in der Sonne liegen, Ball spielen, 
nackt baden und viel faulenzen. Aber stellt Euch vor. gleich am ersten Tag hab' ich im Hotel einen ganz tol¬ 
len Typ kennengelernt. Noch am selben Abend schob er mir eine Diskette in den Bauch und meinte: 
•Schluß jetzt Baby, wir machen Bildungsurlaub.- Oh Mann, hat der mir Sachen beigebracht. Das hätte ich 
mir nie träumen lassen. Auf einmal konnte ich zweimal - nebeneinander. Ja wirklich: er brachte mich so 
weit, daß ich zweispaltige Texte druckte. Und dann die verschiedenen Schriften, die Schablonen, 
Etiketten und Formulare. 

Und zwischendurch wurde er oft ganz ruhig, sagte kluge Sachen über mich, unser Leben und vieles 
mehr: er war richtig philosophisch. Ich bin ganz glücklich. Endlich habe ich das Gefühl, ein reifer, 
ausgewachsener Computer zu sein. Ach was erzähle ich Euch da. Versteht Ihr mich überhaupt?« 


Leinen-Hardcover, 207 Seiten, 
3‘'-Diskelte 


89,- DM 

(unverb. Preisempfehlung) 

Zu Beziehen über den Computer¬ 
fachhandel, den guten Fachbuch¬ 
handel oder direkt beim Verlag 
Händleranfragen erwünscht. 


Ein OMV-Buch + 3‘'-Dlskette 


Aus dem Inhalt: 

- LocoScript Spezial - Softwaretraining für Fortgeschrittene 
- Fehler im System: Wie rette ich meinen Text 
- Joyce-Tasteninstallationsdatei für das Programm Wordstar 

- Aleatorische Poetik: Der Compu¬ 
ter dichtet 

- Auf Diskette; Uber 50 Dateien mit 
Schablonen, Briefen, Postkarten, 
Serien-Rundschreiben, Formula¬ 
ren, Etiketten. Oruckbeispielen, 
Schritten, Bildschirm-Installatio¬ 
nen uvm 
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99. SP.MOVER, S-Nr., X-, Y.Ab¬ 
stand (, D.-Mode) 

Bewegt ein Sprite um den angegebenen 
Abstand weiter. Die Positionierung er¬ 
folgt also relativ zur vorherigen Posi¬ 
tion. 

100. SP.MOVER2, 

Nummer des zu entfernenden Sprite, 
Nummer des darzustellenden S., X-, 
Y-Offset (, D.-Mode) 

Entfernt das angegebene Sprite vom 
Bildschirm und bildet das andere Sprite 
um den gewünschten Offset verseht 
ab. 

Dieser Befehl unterstützt das Erzeugen 
von fließenden Bewegungen. 

101. SP.FRAME, EIN (1)/AUS (0) 

Bildschirmdarstellungen von Sprites 
werden automatisch mit dem Bildauf- 
bau synchronisiert. Es wird also bei je¬ 
dem Bildrücklauf maximal ein Sprite 
dargestellt, was eine sehr gute Qualität 
ergibt. Bei mehreren Sprites, die 
gleichzeitig dargestellt werden sollen, 
muß dieses jedoch abgeschaltet sein. 


Dieses deshalb, weil hier mehrere 
Sprites bei jedem Bildaufbau einge¬ 
blendet werden müssen, um ein flim¬ 
merfreies Bild zu erzeugen. In diesem 
Fall muß die Synchronisation vom BA- 
SlC-Programm erfolgen. Das können 
Sie entweder durch > FRAME < (sie¬ 
he Graphik-Befehle) oder durch Inter- 
rupLsteuerung erzielen. 

Z.B.; 

10 SP.FRAME,0:A%=0 
20 EVERY 1,1 GOSUB 30:WHILE 
A%«1 WEND (Endlosschleife!) 

30 SP.MOVER,0,8,hSP.MOVER, 
1,4,2:RETURN 

Hier bleibt das Programm immer in der 
Endlosschleife, es wird jedoch jede 
50stel Sekunde ein Unterprogramm 
(/Zeile 30) aufgerufen, wo 2 Sprites 
bewegt werden. Falls jetzt noch die 
Kollisionskontrolle eingeschaltet ist, 
so kann das Programm beim Eintreten 
der Situation in eine andere Zeile sprin¬ 
gen und dort z.B. eine Unterroutine 
ausführen. Das vorgestellte Beispiel 


könnte schon die Systemschleife z.B. 
eines Hindemisspieles sein. 

Ein eventuelles leichte Flackern kann 
daher kommen, daß die BASIC-Inter- 
ruptsteuerung nicht mit dem Bildauf¬ 
bau synchron verläuft. 

102. SP.POS, S-NR., Adresse 
1.Variable, Adresse 2.Variable 

Übergibt die X-Position (0—639) des 
Sprites an die erste Variable, die Y-Po- 
sition (0 — 199) an die zweite Variable. 

103. SP.GET2, S-Nr., X-, Y-Position 

Liest einen Bildschirmausschnitt als 
neue Sprite-Matrix ein. 

Die Größe des Ausschnitts entspricht 
der Matrix. 

Der Befehl darf nur angewendet wer¬ 
den, sofern das Sprite eingeschaltet ist! 

(K. Kremer) 


JOYCE • CPC 

Papierführung: 

• zwei verstellbare Seitenführungen = 
gerader Papiereinzug 

• In anthrazit, blau, gelb, grün, orange, rot 

DM 29,- 

sFr. 29.-/ÖS 229,- 

Bildschirmfilter: 

• vermindert störende Reflexionen 

• angepaßt an das Design des Monitors 

DM 49,- 

• leichte Montage 

sFr. 49,-/08395,- 

FD-2: 

• 1 MB Drive für 8256 

DM 499,- 


sFr. 499,-/öS 4490,- 

RAM-Erweiterung: 

• Original 257er Chips! 

DM 99,- 


sFr. 99,-/öS 799.- 

Farbband: 

• 2 Stück 

DM 29,- 


sFr. 29.-/ÖS229,- 

Bildschirmfilter: 

• für CTM 640/644 

DM 39,- 


sFr. 39.-/ÖS 275,- 

• für GT 64/65 

DM 29,- 


sFr. 29.-/ÖS 229,- 

Joyce-Hard-disc: 

• 20 MB 

DM 1495,- 


sFr. 1495,-/öS 11 995,- 

HÄNOLERANFRAGEN SIND WILLKOMMEN! 

Das komplette ABD-ZubehÖr ist bei den Schneider-Computer- 
Händlern sowie bei Hertie, Horten, Kaufhof und Ringfoto erhältlich. 

Alle unsere Produkte werden zu Tagespreisen gehandelt. 

Deshalb können die Preise tatsächlich niedriger sein als genannt! 

Deutschland: Schweiz; 

Österreich: 

ABD Electronic Swicom SA 

Wagner Electronics 

Zettachring 12 Route de Boujean 

Hauptstraße 171 

7000 Stuttgart 60 CH-2502 Biei-Bienne 

3001 Mauerbach 

Telefon 0711 -7150037 Teiefon (032) 4227 84 

Telefon 02 22-972166 

oder 231833 



Public-Domain für CPC, Joyce und C-128 

Public Domaia-Softwarc für Ihrea Schnelder-CPC, Joyct und CoDimodore-128 
mit deutschen Programmtexten und einem gedruckten Handbuch < so machen 
diese prei^ÜDStigen Super-Programme richtig Spaß! 

Programm des Monats: ZSO-Assembler (Diskette 2) 

Profi-Programme für die Asscmblerprc^ammierung! Rasend schneller Z80- 
Asscmbler, leistungsfähiger linker. Der Debugger steUt den Singlestep am 
Bildschirm dar. Der Reassembler unterscheidet Daten und Programmcode. 

I- JRT-Pascal - vollständiges Pa.scal mit 64K-S(rin^, Ovcrlays... * 

3- Künstliche Intelligenz • Interpreter für XLISP und E-PR(>L>OG * 

4- C-Compiler Small-C - Fließkomma/ahlcn, umfangreiche Bibliotheken * 

5- FORTH-83 - mit Assembler, Decompiler, Screen-EdilOT ... 

6- CP/M-Utilitieswie Dateikompressor, Diskmonitor, UNERA... 

7- Alle Programme aus dem Großen CPC-Arbeitsboch (nur CPQ 

S- Adventure Colossal Cave (Programm engßseb, Anleitung deutsch) * 

9- CPC-Disk Utilities - kopiert g^chUtzte Software (nur CPC) 

10- BizBasic - CPC-Basic-Erweiterung (relative Dateiverwaltuog etc.) 

II- Basic-Compiler E-BASIC • CBASIC-kompatibel, viele Befehle 

12- Turbo Pas^-Prt^ramme - INLINE-Generator, GSX- und ROM-Gralik 

• auf dem CPC-464/664 nur mit Speichererweiterung (64K genügen). 
Disketten 1-4 und 11 mit WordStar-kompatiblem Editor. C-128: Disk 12 
ohne Grafik. 1570/1571-Fonnat. Kein 1541-Format. 

Der Preis? Sage und schreibe nur 30,- Mark pro Diskette inklusive Porto und 
Verpackung! Bitte Disketteoformat (3 Zoll, Vortex, 1570/1571) ai^eben. 
Lieferung per Nachnahme oder Vorauskasse, Ausland: nur Vorauskasse. 

MARTIN KOTULLA 

Grabbestraße 9, &500 Nürnberg 90, ’meroa 0911/30 33 33 

Wsftare BezugsquoHen für CPC. Joyc« und Commodore-ISS: 

TESCO GmbH, nüdenhausanecstraOe, 8714 WwMnthaid, Talefan 0 9363 / 1237 
Computer Solutions. HansastraSe 9,8000 München 40, Telefon Ofö / S 70 25 39 
Computer Herd-Software Simon, EspenstraBe 79.4800 Dortmund 1, Telefon 0231 /51 13 70 
Uülire-Oetentechnlk, Sohönebergei SlraQe 5,1000 Berlin 42, Telefon 030 / 7 52 91 SO 
Soft- und Hardware Ulrike Becker, Fesanenweg 2, 6890 St. S^ndel 8, TeMon 06 856 / 504 
Weitere Bezugsquellen für Schnelder-CPC und Joyce: 

Computerstore, hIochstraSe 11,8500 Nürnberg 80, Telefon 0911 / 28 90 26 
Techn. Büro Hochholzer. E.-Prunner-Str. 1,8062 Markt Indersdoif. Tel. 08136 / 1625 
Weeske Computer-EiekUonik, Potsdamer Ring 10,7150 Backnang, Telefon 07191 /1528-29 
ETAf-Beratung Si^ult, Von-Beck-StraBe 6,7500 Karlsruhe 1 
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[3717] 

1serweiterung Profi RSX **»«t***** 


20 ■ 

[117] 

30 'Teil 5: Spriie-Befehle (Teil 1) - 

[3716] 

40 ' 

[117] 

50 ' PrograiBia-Stsrid. 07.08.1987 - 

[4421] 

60 ’ 

[117] 

70 'Version 1.1 (fuer Schneider/ Amstrad C 

[4575] 

PC 464! ) - - - 


80 ' 

[117] 

90 'Copyright (c) 1907 by Klaus Krener - 

[3774] 

100 ■ 

[117] 



120 ■ 

[117] 

130 ‘Initalisierung mit CALL 32768 (&6000) 

[2564] 

140 • 

[117] 

150 'Vor der Laden des M-Codes k der Inita 

[4312] 

lisierung muss der 


160 'Speicherbereich durch MEMORY &7fff ge 

[3474] 

schuetzt werden! 


170 ■ 

[117] 

180 MEMORY &.7FFF 

[150] 

190 • 

[117] 

200 FOR 1=32768 TO 3498l;READ a:P0KE L.a:N 

[2225] 

EXT 


210 • 

[117] 

220 INPUT"Soll der M-Code (Profi RSX-Teil 

[9508] 

5) auf Diskette/ Kassette abgespeichert we 


rden (j/n>":a$; IF aS = ''j" OR a$ = "J" THEN 2 


30 ELSE 240 


230 SAVE"sp-464 ",b,48000,2214 

[1286] 

240 CALL 48000;END 

[1316] 

250 ' 

[117] 

260 DATA 400,418.402,400,400.401.418,480.4 

(1749] 

21 .414,480 


270 DATA 4CD.4D1.4BC.43E.4C9.432.400.480,4 

[1814] 

CS.400.400 


Listing nsX-Profi 



280 

DATA 400 

400 

45F 

480.4C3.416.4e7.4C3 

4 

[1548] 

DO , 

484.4C3 






290 

DATA 44E 

485 

4C3 

4eA,4e5.4C3.4D9.486 

4 

[ 2504 ] 

C3 , 

4DD.481 






30C 

DATA 4C3 

41D 

481 

4C3.450.482.4C3.447 

4 

[ 2323 ] 

84 . 

4C3.444 






310 

DATA 481 

4C3 

461 

481.4C3.49D.481.4C3 

4 

[2147] 

3A. 

182.4C3 






320 

DATA 4FE 

481 

4C3 

417,482.403.490.484 

4 

[1657] 

C3 . 

40F.466 






330 

DATA 4C3 

425 

482 

4C3.474.486.403,42B 

4 

[2778] 

82 . 

4C3,40C 






340 

DATA 485 

4C3 

484 

483.403.470.488.453 

4 

[ 947] 

50 , 

42E,44D 






350 

DATA 44F 

456 

445 

452,482.453.450.42E 

4 

[1626] 

50 , 

455,4D4 






360 

DATA 453 

450 

42E 

447,445.404,453.450 

4 

[1676] 

2E, 

44D.44F 






370 

DATA 456 

4C5 

45 3 

450.42E.44D.44F.456 

4 

[2197] 

45. 

4D2.4S3 






380 

DATA 450 

42E 

450 

44F.4D3.453.450.42E 

4 

[2094] 

4D. 

445,44D 






390 

DATA 44F 

452 

4D9 

453,450.452.449.454 

4 

[2314] 

C5 , 

453,450 






400 

DATA 42E 

444 

445 

406.453.450.42E.44F 

4 

[1724] 

CE, 

453.450 






410 

DATA 42E 

44F 

446 

4C6.453.450.42E.444 

4 

[1705] 

45 , 

44C.445 






420 

DATA 454 

4C5 

453 

450.42E.44B.44F.40C 

4 

[2712] 

53 , 

450.42E 






430 

DATA 450 

452 

449 

4CF.453.450,42E,447 

4 

[2286] 

4F , 

454,4CF 






440 

DATA 450 

452 

441 

4C4.453.4S0.42E.446 

4 

[1530] 

52 . 

441,44D 






450 

DATA 4C5 

453 

450 

42E,447,44F.453.455 

4 

[ 2201 ] 

C2 . 

453,450 





[ 1534 ] 

460 

DATA 42E 

452 

445 

454,455,452.40E.453 

4 

50 . 

42E.446 





[1817] 

470 

DATA 44C 

441 

4C7 

453.450,42E.447.445 

4 

54 . 

4B2.450 
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Kopierprogramme 

DISC-WtZARD 14-9,00 

Adapter 6128 39.00 

Dieses Modul wird hinten auf 
den Rechner gesteckt und 
kopiert auf Knopfdruck fast 
alle CPC-Programme von 
Kassette auf Diskette. Für den 
6128 ist ein spezieller Adapter 
erforderlich. 

MASTERCOPY 69,90 

Das Siegerprogramm aus der 
Happy~)A/ertung. MASTER¬ 
COPY kopiert z.Zt. lOOX aller 
CPC Disketten und untei — 
stutzt wahlweise 1 oder 2 
Laufwerke. Jeder Benutzer 
kann einen preiswerten 
Update-Service in Anspruch 
nehmen. 

CLONE 39.90 

Dies ist eine besonders 
schnelles und preiswertes 
Programm zum Kopieren von 
CPC-Disketten. CLONE ist 
kinderleicht zu bedienen und 


zu 

kopiert 80% 

CPC-Disketten. 


aller 




i 

% 




W- 


CPC 464-/664/6128 

Kasnttt Dlftk«1t0 

Adv.Art Studio 89,90 

Adv.Music System 69,90 

Arkanoid 29.90 39,90 

BalloonChallenge 28,90 42,90 

Cholo 39,90 54,90 

Elite deutsch 49,50 67,50 

Enduro flacer 29,90 38,90 

Indoor Sports 28,90 44,90 

Koronis Rift -54,90 

Leather Goddes. - -69.90 

Leviathan 28,90 37,90 

Mario Brothers 28,90 39,90 

Metrocross 28,90 37,90 

Moonmist 79,90 

Paperboy 24,90 34,90 

Par Five Golf 39,90 59,90 

Planetfall 69,90 

Quartet 37,90 56,90 

Starfox 28,90 39,90 

Stargiider 39,90 54,90 

Tomahawk 34.90 45,90 

Triaxos 28,90 39,90 

Trio Hit-Pak 28,90 37,90 

Two on Two 36,90 55,90 

Wizball 28,90 37,90 

Wonderboy 37,90 54,90 

World Games 33,90 43,90 

Zynaps 27.90 38,90 








MA( IC BRU\»n 

MAQIC-HHUSiH M 9m Zmchenprxrgramm 
d9r n9U9n Ommntioti für äße Sehnmder 
A7. Em zefcfmel skH durch hohe 
‘oächwindigkefl, einfache Bediemmg und 
“fne Rufe von mierresoenten Feelures aus. 


PC KASS/OISC 


DM 34,90 / 49,90 


1 .ovce t 

Ballyhoo 

69,90 

Cyrus Schach 

49,90 

Deadline 

69,90 

Enchanter 

69,90 

Hitchhikers Guide 

69.90 

Infidel 

69.90 

Leaderboard 

54.90 

Planetfall 

69.90 

PSI 5 Trading 

47,90 

Seastalker 

69,90 ' 

Sorcerer 

69,90 ; 

Suspect 

69,90 

Suspended 

69,90 

Spellbreaker 

69,90 

Starglider 

69,90 

Strike Force Harrier 

54,90 ; 

The Guild of Thieves 

74.90 

The Pawn 

69.90 

Tomahawk 

59.90 \ 

Wishbringer 

69,90 



. JOYCE . 

Prowort deutsch 198,00 

Fleet Street Editor + 249,00 


L_._-_ 



Tulpenstraße 30 

Bestelltelefon 

(ab 17.00 Uhr 

2870 Delmenhorst 

04221/16464 

Anrufbeantworter) 


>►►►»►►►►►►►►►►►►►►►►►►►►►► 

Ja, senden Sie mir umgehend: 

1 _ 

2 _ 

3 _ 

4 

5 _ 


per Nachnahme 
Scheck anbei 


O bar anbei 


CPC O 
Joyce O 
PC 1512 O 
Atari ST O 
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I~ Serie 


480 DATA 452.453,&43.&C8.453.A50.&2E.&4C 4 
45,4D4.400 

( 1733 ] 

490 DATA 400,400,400,400,400,400.400.400.4 
00.400.400 

tl795) 

500 DATA 400.400,400.400.400.400,400.400.4 
00,400.400 

[1795] 

510 DATA 400.400,400,400.417.481.419,461,4 
0C,400.4FE 

[1641] 

520 DATA 402,4C0,4CD,4BC.484,47C,4BA,438,4 
05.47D.493 

[ 2481 ] 

530 DATA 438.401.4EB.422.419,481.4ED,453,4 
17.481.4AF 

[1614] 

540 DATA 432.403,480,432.404.400,4EB,4E5,4 
ED.452.44D 

[2414] 

550 DATA 444,4E1,4C3,4E8,483,4FE,402.4C0.4 
CD,47C.481 

[2784] 

560 DATA 4C0.4E5,42A,41B.481.4EB,4ED,452.4 
29.4CD.4eE 

[1944] 

570 DATA 481,4E1.4C8,4CB,4FE,423,423,423,4 
73,423.472 

[2609] 

580 DATA 4C9.4FE,402.4C0.4CD,47C,481,4C8,4 
E5.42A,41B 

[2802] 

590 DATA 481,4EB,4ED,452.4CB.43C,4CB,41D,4 
CD.48E.481 

[2109] 

600 DATA 4E1.4C8,4CB.4BE,418.4DE.4DD.44E,4 
02.4DD,446 

[3303] 

610 DATA 403.4C5,4CD,49C,484,42B.42B,42B.4 
2B.4CB,47E 

[1644] 

620 DATA 4C1.4C9,419.4E5,4CD,49A,483,4CD.4 
BC.484.43A 

[2812] 

630 DATA 40C,481.4D1.4B7,477,4C9,4FE.402.4 
C0,4CD,461 

[3025] 

640 DATA 481,4DD,44E,402.4DD,446,403,42A.4 
03.460.4E5 

[1366] 

650 DATA 4B7,4ED.442,4E1,4D8.420.40D.4AF.4 
B9.420.404 

( 2827 J 

660 DATA 4B8,420,401,423.42B,422,403.480.4 
C9.42A.41B 

[1629] 

670 DATA 481.4C5,4CD,49A,483.43A,40C.481.4 
CD,4BC.484 

[2002] 

680 DATA 477.4C1,4B7.4C8.4CD,49C.484,436,4 
00.42B.43A 

[1203] 

690 DATA 41B.481,477,4C9.4FE,403,4C0,4CD,4 
BC,484.4E5 

[2203] 

700 DATA 4D5.4CD.49C.484,4E5.4FD,4E1.406,4 
02.4E1.4FD 

[2901] 

710 DATA 45E,4FA,AFD.456.AFB.473,423,472,4 
FD.42B,4FD 

[2896] 

720 DATA 42B.410,4F0,4C9,4FE,402,4C0,4CD,4 
BC.484,442 

[2310] 

730 DATA 44B.4E5,4CD,490,484.411,404,400,4 
ED,452,401 

[1782] 

740 DATA 4BB.4CB,4EE,4C0,4CB.4AE.4C9,4FE,4 
01.4C0,4CD 

[2367] 

750 DATA 4BC.404,422,44C,482,43D,432,44B,4 
82,4C9,4FE 

[1276] 

760 DATA 401.4C0.430,418.4EF,4FE,401,4C0,4 
CD,4BC,484 

[2430] 

770 DATA 43A,44A.482,477.4AF,432,44A.482,4 
C9,4FE.401 

12114] 

780 DATA 4C0,4DD,47E.400,421.443,482,4CB,4 
FE,4B7.4C0 

[2273] 

790 DATA 4CB,4BE.409.400.400,400,400,400,4 
00.4FE.404 

[2752] 

800 DATA 4D8.41E,403,493.432.40F.481,4SF,4 
16,400,4DD 

[1419] 

810 DATA 419.4DD,419,40D,460.484.4D5.4ES,4 
CD,490,484 

[2266] 

820 DATA 4ED.453,411,481,4E5,44D,444.4FD,4 
El.416.400 

[ 2686 ] 

830 DATA 4FD,45E,4FE,462,4FD.46E,4FD.4CD,4 
BE.4BD.4E8 

[1197 ] 

840 DATA 421.4FF,AFF,4ED,452,422.400,481,4 
00,474,483 

[ 1774 ] 

850 DATA 46B.4FD.45E.4FE,416.400,462,4CD,4 
BE.4BD.4D1 

[2193] 

860 DATA 4CD.4BE.4BD.4D1,419.4CD.474,483.4 
16.400,4F5 

[2098] 

870 DATA 4CD,401,4BD,43A.4C8,4B1,4D5.4EB,4 
B7,42A.40D 

[ 2271 ] 

880 DATA 481,419.422,40D,481,460,469.4D5,4 
ED.44B.41B 

[ 2042 1 

890 DATA 481.4ED,442,4EB,42A.411,481,4ED,4 
42,4FD,4CB 

[ 1789 ] 

900 DATA 4FC,47E,428,404,4CB,430,4CB,41D.4 
EB,4ED,452 

[1839] 

910 DATA 4D1,419,423.4D1,457,47B,4B7,4C2,4 
61,483,43A 

[3103] 

920 DATA 4CF.4B1.45F,4F1,AD5,432.408.4B1,4 
CD,463,483 

[ 1348 1 

930 DATA 432,423.483,432,450,483,476,432.4 
CF.4B1.43A 

1508] 

940 DATA 40F,481,447.4AF.A4F.4DD,42B,4DD,4 
Listing RSX-Profi 

1969] 


2B,4C5.4FD 

950 DATA 46F.4DD.4CB,401,47E,406,401,ADD ,4 

[2534] 

7E,400.428 

960 DATA 410,4ED,444,401,405.420,401.404,4 

[1556] 

05.447,ADD 

970 DATA 42B,4DD,42B.4DD,47E,AO0,A57.AFD,4 

1 2447 ) 

7D,AF5.A7A 

980 DATA 4CD.A2C.4BC.AA3.4CB,A0B.4B1.A4F,4 

[2675] 

F1.A3C,4FE 

990 DATA 404,420,412,4E5,A2A.40D,481,423.4 

[1239] 

22.40D,&81 

1000 DATA AAF.ABC.4E1,428,426,479.477.423, 

[2692] 

4AF.A4F.410 

1010 DATA ADC.AFD,A6F,479.401.A4F.AFD,47D, 

[2369] 

410,4AE.4B7 

1020 DATA 428,AOE,AFS,47E,4A3,ACB.40B,ABI, 

[2318] 

44F,AF1.A3C 

1030 DATA AFE,A04,A20,4F3,471,4D1,47B,432. 

[1599] 

ACF,&B1,47A 

1040 DATA 432,408,4B1.409.401,418,4F3,AFl. 

[1982] 

4C9,A1E.AAA 

1050 DATA 4FE,401.43E,402.4D6.41E.488,43E, 

( 2472 ] 

404,4C8,41E 

1060 DATA 4eO,A3E,408.4C9,AFD,47E,AFC.4E6. 

[2209] 

403.41E.402 

1070 DATA AFE.AOl,4D8,A1E,404,4C8.41E,408. 

[2987] 

aC9,4E5,AC5 

1080 DATA 4CD.A9A.483.401,AEl,43A,40C.481, 

[2697] 

AB7.4C8,4E5 

1090 DATA ACD.49C.484.4D1.472,42B,473,437, 

[1781] 

4C9.4AF,4E5 

1100 DATA 432.400,481,42A,403.480,423.4ED, 

[1774] 

442.428.478 

1110 DATA 438,474,406,400,490,484,401.4B7, 

[1822] 

4ED.452,422 

1120 DATA 40D,481,AE3,422.40F,481,4B7,4ED, 

[2266] 

452.428.438 

1130 DATA 438,439,422,A0F,481,4E5,4ED,44B. 

[2792] 

403,480.4CD 

1140 DATA 490,484.4B7.4ED,452.401,4D1,ACD, 

[2539] 

439,484.408 

1150 DATA 4E5.4EB.AED.A52,403.4E5.AEB.AED. 

[2519] 

442.401.AEB 

1160 DATA AEl.4ED.ABO,42A.400,481.4ED,44B, 

[1923] 

40F.481,406 

1170 DATA 4AF,477,A5D,454,AIB.AED,ABS.430, 

[2439] 

432,400.481 

1180 DATA 409,4E1,418.AFS.42A,40F,481,4EB, 

[2124] 

4B7,4ED,452 

1190 DATA AEB.A2A.400,401,419,AE5,4ED,44B, 

[2504] 

403.480.400 

1200 DATA 490.484.4B7.AED,452,4EB,A2A,40D. 

[2303] 

481,4ED.452 

1210 DATA 444.440,4D1,4E1,428,4D5.416,4D1. 

[1043] 

AEl,409.4ED 

1220 DATA 443,400,481,40B,ACD,490,404,4AF, 

[2274] 

4ED,A52.AC1 

1230 DATA 4CD.439.484.4D8,4E5.42A,400.481, 

[2552] 

422.403.480 

1240 DATA AEl,418,4AF.4D5,4E5,4ED.45B,419, 

[1999] 

481.AB7,4ED 

1250 DATA 442,4ED.452.4E1,4D1.409,4FE.405. 

[2146] 

AC0.4CD.4B4 

1260 DATA 484.4E5.4EB.4DD,A7E,4FE,4CD.477, 

[2751] 

483.ADD,477 

1270 DATA 4FE,416,400.ACD,ACl.4BD,4DD,475, 

[1675] 

402,4AF,4BB 

1280 DATA 4D1,4C0.ACD,4BE.ABD.AED,45B,A1B, 

[2956] 

481,419,4E5 

1290 DATA 405.4CD,49A,483.A3A,4OC.A01.4DD, 

[3230] 

A6E,4FC,4DD 

1300 DATA 466,4FD.477,4B7,401,428,A9E.ACD. 

[2039] 

490,464,401 

1310 DATA A72.A2B.A73,A2B,4E5.4CD,4BC,484. 

[2106] 

4E3.473,ADl 

1320 DATA A2B.A73.ADD,45E.4FE,42B,473,409, 

[2007] 

4DD.A4E.404 

1330 DATA ADD,446,405.4AF.421,AFF.4FF,4ED, 

[2495] 

442.444,440 

1340 DATA 42A,417,481,456.42B.A5E,A23.4AF, 

[21241 

AED,452,403 

1350 DATA 4B8.420,AFS,419,409,ADD,423.ADD, 

[2705] 

423.ADD,423 

1360 DATA ADD.423.ADD,46E,400,ADD,466,401, 

[2014] 

4DD,45E.402 

1370 DATA ADD.456,403,ADD,44E,404,ADD.446. 

[2567] 

405,4C9,409 

1380 DATA 4FE,403,428,A0C.4FE,404.ACO.ADD. 

[2237] 

47E.A00,4FE 

1390 DATA 405.ADO.ACD,A7F,487,4CD,496,484. 

[2060] 

AE5.A2B,A2B 

1400 DATA 446.A2B.44E.42B,ACB,47E,422,413, 

[2044] 

481 .428.419 

Listing RSX-Profi 
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1410 DATA 4CB.4F6.&EB,iED,45B,&1B,&81,&ED, [3581] 
&52,&CB.43C 

1420 DATA &CB.41D.tE3,&ED,&52.&D1.tED.452. [1893] 
iEB,AC5.4D5 

1430 DATA &C3 .iB9,405 ,&D1 ,&C9.4FE,&.03 , ACO , [2824] 
4CD,496,404 

1440 DATA 4ES.42B,42B.446.42B.44£,4EB.4ED. [2315] 
45B.41B.481 

1450 DATA 4ED,452,4CB,43C,4CB,&1D,AE3.4ED, [2396] 

452,4D1.4ED 

1460 DATA 452,4EB,4C5.4D5.4CD,4BC,484,400, [1953] 

41D.ABC.4D1 

1470 DATA 4CB.479.4C1,400.413.4FD.468.4FD. [2789] 
445.4E5.47E 

1480 DATA 412.413,420,4CC,4F7,487.410,4F7, [2352] 

4E1.4CD,4BF 

1490 DATA 487,400.420,4ED.409,4FE.401,400, [1170] 
4DD.44E.400 

1500 DATA 4DD.446,401,4CD,490,487.408.4CB, [2210] 
4B6.4C5.42B 

1510 DATA 42B,42B.42B,42B,446,42B.44E,42B, [2575] 
47E,460.469 

1520 DATA 40B,47F.4C1.4CD.420,488,428,416. [1174] 

4FD.468.4FD 

1530 DATA 445,4E5.41A,477,41B,420.4C0,4F7. [1799] 
487.410,4F7 

1540 DATA 4E1,4CD.4BF.487.40D,420,AED.4C9, [2488] 
4EB,4C9,4FE 

1550 DATA 403.428,40C,4FE.404,4CO,4DD,47E. [2336] 
400,4FE,405 

1560 DATA 4D0,4CD.47F,487,4CD,497.487,408. [2466] 

&CS &22 &13 

1570 DATA 481,42B,42B.42B,42B.42B,446.42B, [2485] 

44E.42B.47E 

1580 DATA 460,469,40B.47F,401,405,4D5,4CD, [3011] 

420.488.404 

1590 DATA 472,485.4DD,446,401.4DD.44E,400. [2410] 

4DD.456,403 

1600 DATA 4DD,45E.402,42A,413,481.42B,472, [2155] 

42B,473.42B 

Listing RSX-Profj 


1610 DATA A70.42B.471,4E5,460,469,4CD.41D, [2499] 

4BC,4FD,4E1 

1620 DATA AFD.474.4FF,4FD.475,4FE,4FD,471. [2296] 
AFD.4D1.4CB 

1630 DATA 479.401.408,4FD,4CB,404,46E.4D5, [1545] 

4FD.4E1,413 

1640 DATA 4DD.468,420,42F,43A,44B,482,4CB. [1929] 

47F.420,421 

1650 DATA ADD,445.4E5.47E,4FD,477,400,41A, [2318] 

400,477,413 

1660 DATA 4FD,42B,42C.4CC.4F7,487.410,4FO, [1242] 

4E1.470,406 

1670 DATA 408,467.4E6,438.40C,406.487,40D. [1650] 
420,4E0,4O9 

1680 DATA 4AF,432,430.486,432,431,486,4AF. [2213] 
4ED.447,4DD 

1690 DATA 445.&E5.47E.4FD.477,400.AB7,428. [1584] 

404,4ED.447 

1700 DATA 418,403,A1A,400,477,413.4FD,42B, [1969] 

42C.40C,4F7 

1710 DATA 487.410.4E9,4E1.4CD,4BF,487,40D. [3138] 

420,4DF,4ED 

1720 DATA 457.4B7.408,421.418,403,422,430. [1682] 
486.43E.401 

1730 DATA 432,44A,482,43A,44B.482,4CB,47F, [2565] 

4C8.42A,475 

1740 DATA 4AE.422.44E.402.4ED.4SB,44C.482. [2671] 
4CD,400,4B9 

1750 DATA 4CD.4A3,4E7,4D0,4AF.432.44A,482, [2108] 
42B,422,475 

1760 DATA 4AE.4C9,43A,44D.482.40B.47F,4C8. [2855] 
4C6.4BF.4B7 

1770 DATA 408,42A.44E,482.422.A75.4AE,4C9, [1975] 
406.402.4DD 

1760 DATA 4E5,44A,4FD.46E,4FA.4FD,466.4FB. [2618] 
4DD.45E.402 

1790 DATA 4DD,456,403.419,4FD,475.AFA,4FD, [2792] 
474,4FB,47B 

1800 DATA 4CB,47A,428,404.4ED,444,4CB,4FF, [1651] 
457,4DD.42B 

1810 DATA 4DD,42B.4FD,42B,4FD,42B,410,4D8. [3520] 
Listing RSX-Profi 


^ Michael Naujoks 
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Kostenlosen Katalog X10/87 antordern! 


MN-riobbysoft Ladenverkauf nur Do. + 
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Rottmannstr 40, 6900 Heidelberg « (0622'"'16885 
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CPC 6128 • Joyce • Joyce Plus 

Unsere bahnbrechende Benutzer-Schnittstelle trägt einen neuen Namen: 

MenuMate 

Unverändert bleiben die Leistungsmerkmale: 

• Menüs nach eigenem Bedarf, in unbegrenztem Umfang 

• Meldungen, Hilfsanweisungen, Informationstexte 

• Einbau von beliebigen Kommandofolgen (z.B. Programmaufrufe) 

• reichhaltige Formatierung einzelner Menüs und Texte 

• Fenster-Technik, Pull-Down-Menüs, Schreibtisch-Effekte usw. 

• Menü-gesteuerter Editor: Fehlbedienung ausgeschlossen 

»Wenn Sie sich mit dem Programm emmal vertraut gemacht ha¬ 
ben, sind Sie in der Lage, ganze Handlungsabläufe eines kleinen 
bis mittleren Betriebes damit zu steuern.« 

- PC Schneider International 7/87, Seite 122 
»Die mögliche Menüvernetzung mehrerer Anwenderprogramme 
macht MenuMate meiner Ansicht nach besonders geeignet. Mit¬ 
arbeiter mit Bildschirm- und Computerarbeit auszusöhnen.« 

- Joyce News 3/87, Seite 4-6 

Informationsbroschüre kostenlos, unverbindlich 

DEMO-Version DM 25,-* (wird beim späteren Lizenzerwerb voll 

angerechnet) 

Benutzungslizenz DM 198,-* (unverbindliche Preisempfehlung) 
Beim Fachhandel oder direkt von: 

Gerald Keil 

SOFTWARE-ENTWICKLUNG 
UND VERTRIEB 

Obere Hochstraße 136 - 6652 BEXBACH/Saar 

* Nachnahme (nur BRD) zzgl DM 330 BITTE COMPUTFRTVP ANQEBEN 
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I —Serie 


&DD.&E1.&59 

1620 DATA &ED.&53,&0D,&81,AC9.&FE.&03.A26. 

[2527] 

&OC.&FE.&.04 

1830 DATA ACO.&DD.A7E.&O0.&FE.AO5.ADO,&CD, 

[2741] 

&7F,487.&,CD 

1840 DATA &g6.&e4 .&E5. AFD.&El .ACD.&85 ,ac86 , 

[2305] 

&CD.A97,S.87 

1850 DATA AC8,&.C5,A2B,&2B.&.2B.&2B.&2B.A46. 

[3135] 

&2B.&4E.&2B 

1860 DATA i7E.&22.il3.t81.&60,469,&CB,i7F, 

[2703] 

&C1.4C5,4D5 

1070 DATA 4F5,tE5,&CD.420.488.404,472,486. 

[2601] 

4E1.4F1,44F 

1880 DATA 4ED.45B,&0D.4dl.4CD.42C.488.4FD. 

[2275] 

42A.413.481 

1890 DATA AFD.471,400,4FD,475,401,4FD,474. 

[2086] 

402,4D1,4CB 

1900 DATA 479,4C1.4C8,4FD,4CB,A07,46E,AC3. 

[2400] 

4EA.48S.4FE 

1910 DATA 404.428.406,4FE,40S,4C0.4CD,47F, 

[2103] 

467,4CD.496 

1920 DATA 484.AE5.4FD,4E1,411.40B,400,4ED, 

[2610] 

4S2.4E5.4DD 

1930 DATA 423,4DD.423,400,496,484.442,44B, 

[2000] 

4D1.4C5.401 

1940 DATA 40B,400.4E5.4ED.442.40E.407.4ED. 

[1911] 

453,413.481 

1950 DATA 4ED,4B0.4DD.42B,4DD.42B,4CD.485. 

[3048] 

486.4E1.4D1 

1960 DATA 40D.4AO,467.408,4CB.4B6,405.42B. 

[2172] 

42B.42B.42B 

1970 DATA 42B,446.42B.44E.42B.47E,460.469. 

[1426] 

40B.47F.4Cl 

1980 DATA 4F5,4E5.4CD.420.408.404,472.485. 

[2741] 

4CD.497.487 

1990 DATA 4C6,47E,428.409.4CB.4F6.4E1.4F1. 

[1643] 

4CS.4D5,403 

2000 DATA 4F5,486.4E1.AF1.AC9.ADD.423,4DD. 

[1644] 

423.45F,421 

2010 DATA 492.487,416.400.419.47E,432,401. 

[2418] 

488.432,433 

2020 DATA 466.409.400.4AE.4A6.4B6,42F.4DD. 

[2870] 

44E.404,4DD 

2030 DATA 446.405,4CD.490.464.4E5,4EB.4ED. 

[2136] 

44B,41B.461 

2040 DATA 4ED.442.4CB.430.4CB.41D.4EB.4ED. 

[2030] 

442,4ED,452 

2050 DATA 4EB.4E1,42B,42B.446.42B.44E.42B. 

[2322] 

4CB,47E,4C6 

2060 DATA 4CB,476,4C9.470.406.408.467.4E6. 

[2629] 

438.400.470 

2070 DATA 4D6.440.A67.47D,4C6,450.a6F,4D0. 

[2164] 

424.47C.4E6 

2080 DATA 407.400,470,406,408,467,409,470, 

[2445] 

4D6.408.467 

2090 DATA 4E6,438.4FE.438.400.&7C,406.440. 

[1863] 

467,47D.4D6 

2100 DATA 450,46F.4D0.470.425,4E6,407,400, 

[2308] 

470.406.408 

2110 DATA 467,4C9.A2C.AC0.424.47C,tE6.407, 

[2406] 

4C0.47C.4D6 

2120 DATA 408.467,409,47D.A2D.4B7,400,470. 

[1594] 

425,4E6,407 

2130 DATA 400.470,406.408.467.409.4FE.401. 

[3065] 

4C0.4DD,47E 


2140 DATA 400,4B?,43E.4F5.420.402.43E,4C9, 

[2194] 

432,420,486 

2150 DATA 4C9,4F5,4C5.406.AF5.AED.478,41F, 

[2498] 

430.4FB.4C1 

2160 DATA AFl,4C9.47B.AB7.428.411,4CB.47B. 

[2422] 

420.41B,441 

2170 DATA 4CB,419,430.405,448.420,400,4F7, 

[1407] 

&07 &1D &20 

2100 DATA 4F4,47A.4B7.4C8,4CB,A7A,420.41C. 

[1151] 

442,4CD.4D9 

2190 DATA 487.410,4FB.4C9.4CB.4BB.47B,4B7. 

[2520] 

426.4EC.4CB 

2200 DATA 401.430,406.47D.42D,4B7.400.405, 

[1443] 

488.41D.420 

2210 DATA 4F3.418,4DD.4CB.46A.47A,4B7.408. 

[2435] 

442,4CD.4BF 

2220 DATA 487.410.4FB.409.4FE.403,400,4CD. 

[2091] 

4BC.4d4.4E5 

2230 DATA 405.4C5.442,44B.4CD.490.484.401. 

[1931] 

4D5,4EB.4C5 

2240 DATA 4CD,&9A.483.401.4CD.490.484,4D1. 

[2417] 

4C1.&E5.43A 

2250 DATA 400.481.487.428.403,472.426.473. 

[2283] 

4DS.4CD.49C 

2260 DATA 484,401.4D1,4E3,43A,400,481,4B7, 

[1954] 

477.4E1.408 

2270 DATA 4ED,4B8.4C9.400,400.400,400.400, 

[2256] 

400.400.400 

Listing RSX-ProfI 





[3717] 

Iserweiterung Profi RSX 


20 • 

[117] 

30 'Teil 5: Sprite-Befehle (Teil 1) - 

[4440] 

-** Aenderung«n zur *•- 


40 • 

[117] 

50 ’ProeraiDD-Stand: 07.08.1987 - 

[5425] 

- *t Version fuer •»- 


60 ’ 

[117] 

70 'Version 1.2 (fuer Schneider/ Anstrad 0 

[3355] 

PC 664!) -»* den CPC 464 ’ 


80 • 

[117] 

90 'Copyright (c) 1987 by Klaus Kremer - 

[3774] 

100 ' 

[117] 

110 '»«««**•«•*««•**••«•»(«•<*«••■««•*«*«« 

[2371] 

120 • 

[117] 

130 'Initalisierung mit CALL 32768 [48000) 

[2564] 

140 • 

[117] 

150 'Vor der Laden des M-Codes 4 der Inita 

[4312] 

lisierung muss der 


160 'Speicherbereich durch MEMORY 47fff ge 

[3474] 

schuetzt werden! 


170 ' 

[117] 

180 MEMORY 47FFF 

[ISO] 

190 ' 

[117] 

200 FOR i=32768 TO 34981:READ a:P0KE i.a:N 

[2225] 

EXT 


210 ' 

[117] 

220 INPUT"Soll der M-Code (Profi RSX-Teil 

[9508] 

5) auf Diskette/ Kassette abgespeichert we 


rden (j/n)":a$: IF aS="j" OR a$="J" THEN 2 


30 ELSE 240 


230 SAVE"sp-664 " ,b,48000.2214 

t 1479] 

240 CALL 48000:END 

[ 1316] 

250 ' 

[117] 

490 DATA 4DF.401.481,4C9.4B3,4DD,4FD,4DF,4 

11926] 

08.481.409 


500 DATA 477.4DD.4FD,400.400.400.400.400.4 

[1939] 

00,400.400 


830 DATA 4FD.45E.4FE,&62.&FD,46E.4FD.4CD,4 

[1602] 

04.481.4EB 


650 DATA 46B.4FD.45E.4FE.416,400,&62.4CD,4 

[2204] 

04.481.4D1 


860 DATA 4CD.404,481,4D1,419,40D,474,483,4 

[2054] 

16.400.4F5 


870 DATA 4CD.4FD.480.43A,4C3.4B7,4D5.4EB,4 

[2879] 

B7.42A.40D 


920 DATA 40B,461.45F.4F1.4D5,432,403.4B7.4 

[2131] 

CD,463.483 


930 DATA 432,423,483.432.450.483.47B,432.4 

[1450] 

08,481.43A 


1030 DATA 4FE.404.420,4F3.471,AD1.478,432, 

[1745] 

40B.481,47A 


1040 DATA 432.403.4B7,409,401,418,4F3,4F1. 

[3098] 

4C9.41E,4AA 


1270 DATA 4FE.416,400.4CD.4FD,480,4DD.475, 

[2597] 

402.4AF,4BB 


1260 DATA 4D1.400.4CD.404.481,4ED,45B.41B. 

[ 2551 ] 

481.419.4ES 


1730 DATA 432,44A,482.43A.44B.482.4CB.47F. 

[2582] 

4C8.42A.458 


1750 DATA 4CD.469.4E8.4D0.4AF,432,44A.482. 

[2122] 

42B,422,458 


1770 DATA 4C8.42A.44E.482,422.&58.4AE,4C9, 

[2756] 

406.402,4DD 


10 '»«««««txt BASIC-Loader fuer die Befeh 

[3717] 



20 ' 

[117] 

30 'Teil 5: Sprite-Befehle (Teil 1) - 

[4440] 

- •• Aenderungen zur •»- 


40 ’ 

[117] 

50 'Programm-Stand: 07,08.1987 - 

[5425] 

---•• Version fuer •*- 


60 ' 

[117] 

70 'Version l.a Ituor Schneider/ Amstrad 0 

[4428] 

PC 6128!) ** den CPC 464 ! ••- 


80 ' 

[117] 

sO Copyright (c) 1887 by Klaus Kremer - 

[3774] 

Listing HSX-Profi 
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Serie—| 


100 ’ 

110 '********««***«st(««s»*«*«a«s**t«««**« 

120 ' 

130 ' Initalisierung mit CALL 32768 (i8000) 
1 40 ' 

150 'Vor der Laden des M-Codes & der Inita 
lisierung muss der 

160 'Speicherbereich durch MEMORY ii7fff ge 
schuetzt werden! 

170 ' 

180 MEMORY A7FFF 
190 ' 

200 FOR i=32768 TO 34981:READ a;POKE i,a:N 

EXT 

210 ' 

220 INPUT"Soll der M-Code (Profi RSX-Teil 
5) auf Diskette/ Kassette abgespeiohert vre 
rden {j/n)";a$: IF a$ = "j" OR aS ="J" THEN 2 
30 ELSE 240 

230 SAVE"sp-6128”,b.&8000.2214 
240 CALL &8000;END 
250 ■ 

490 DATA ADF.StOl ,&8l , AC9 , tAE.ADD.&FD.ÄDF.fc 
oe.&si,&C9 

500 DATA &72.4,DD,&FD,400,&00,&00,&00.&0O.aL 
OO.&OO.tOO 

830 DATA &FD,&5E.&.FE,&.62,4FD,46E,4FD,tCD.& 
04,481.4EB 

850 DATA 46B,4FD,45E,4FE.416,400.462.4CD,4 
04.481,4D1 

860 DATA 4CD,404.481,4D1.419.4CD,474,483,4 
16.400.4F5 

870 DATA 4CD,4FD,480,43A,4C3.4B7.4D5,4EB,4 
B7,42A,40D 

920 DATA 40B,481,45F.4F1,4D5.432,4C3,4B7.4 
CD,463.483 

930 DATA 432,423,483.432.450.483,473.432,4 
06,481.43A 

1030 DATA 4FE.404.420,4F3.471,4D1,47B,432, 
406,481,47A 

1040 DATA 432.4C3,4B7,4C9.4C1,418,4F3,4F1. 
4C9,41E,4AA 

1270 DATA 4FE,416,400.4CD,4FD.480.4DD,475. 
402,4AF,4BB 

1280 DATA aDl.4C0,4CD.404.481.4ED.45B.41B. 
4SI,419.4E5 

1730 DATA 432,44A.482.43A,44B,482,4CB,47F. 
4C8,42A.458 

1750 DATA 4CD,464,4E8.4D0.4AF,432,44A,482. 
42D,422,458 

1770 DATA 4Ce,42A,44E.482,422,458,4AE,4C9, 
406.402.4DD 


tll7] 

[2371] 

[117] 

[2664] 

[117] 

[4312] 

[3474] 

[117] 

[150] 

[117] 

[2225] 

[117] 

[9508] 


[1739] 

[1316] 

[117] 

[2353] 

[1899] 

[1602] 

[2204] 

[2054] 

[2879] 

[2131] 

[1450] 

[1745] 

[3098] 

[2597] 

[2551] 

[2582] 

[2348] 

( 2756 1 


10 •- - --- - [ 3793 1 


20 ' [117] 

30 ' Ein kleines Spiel zur Demonstrat [5623] 

ion der Profi RSX Sprite-Befehle 

40 ' Spiel [4SI] 

-Nr , 1 


Listing RSX-Prof 


„ (c) 7/1987 by 

Klaus Krener 

[2776] 

60 ' 

[117] 

70 •- 

[3793] 

80 • 

[117] 

90 'Bitte laden und initalisieren Sie zuer 
st Profi HSX (Sprite-Befehle) 

[4787 J 

100 'und reservieren Sie dann einer Speich 
erbereich (mit SP.MEMORY), 

[4319] 

110 'bevor Sie dieses Programm starten. 

[2471] 

120 ' 

[117] 

130 '/ / / / Spielfeld erzeugen / / / / 

[1747] 

140 ' 

[117] 

150 MODE liBORDER 0:INK O.OiINK 1.9;PEN 1 

[1609] 

160 • 

[117] 

170 'Datas fuer das Spielfeld 

[1081J 

180 DATA 1.4,1 . 5,1,6,1 . 7 , 1,B,2,8,3,8.4.8.5 
.8,3,12.4.12,5,12.6,12.7,12,8,6,8.7 

[3092] 

190 DATA 8.10.8,11.5,14,6.14,7,14,8,14,9.1 
4,1.17,2,17,3.17,4.17,5,17.6,17.7.17 

[4136] 

200 DATA 8.17,9,17,10,17,11,17,13.8,13,9.1 
3,10,13,11,13.12,13,13,13.14,13,15 

[3998] 

210 DATA 10,8.10,9.10.10,10,11,10,12.9.19. 
9,20,4.20.5,20,6,20,2.22.2,23.2,24 

[3737] 

220 DATA 12.22,13.22,14,22,15,22.16.7,16,8 
,16,9.16,10,16,11.16,12,16.13.16,14 

[3446] 

230 DATA 16,15,16.16.16,17,16,18.16.19.16, 
20.4,1,5.1,6.1,7,1,7,4,7.5,6.5,4,4 

[3394] 

240 DATA 4,5,17,23,18,23.19,23,22,15,23,15 
,23,23,13,3,15,1,16,1,17,1,10,5,11,5 

[4297] 

250 DATA 12,5,13,5,14,5.19,3,19.4.17.6.19. 
7.19.9,21,9,20,12,19.17.19,13.19,14 

[4020] 

260 DATA 19,20,22.19.22,20,25,21,25.22,24. 
18,25,18.25.15,21,23.22.23,22,2,22,3 

[2590] 

270 DATA 22.4,22.5,23,6.25,6,25,7,25,10,24 
.10,23,12,27,13,26,13.25,13.29,13 

[3874] 

280 DATA 29,14,29.15,28.20,28,21.28,22,28. 
23,28.24.25.3,26,3,28,4,29.5,28,6,29.7 

[3615] 

290 DATA 28.8.29.10.30,10,31,10,32.11.32.1 
2,32.13.32.14,32.15.32.16,28.18,29,18 

[3076] 

300 DATA 30.18.31,18.32.10.28,20,28,21,28. 
22,28,23,28,24.32.1.32,2.32.3,32,4 

[3911] 

310 DATA 33.6,34.6.35,6.36.6,35,3,36,3,37. 
3,35,8,35,9,35,10,35,11,36,13.36,14 

[4359] 

320 DATA 35,17.35,18,35,19.35,20,31.22.32, 
22,34,22,35,22.36,22,37,22,38.22,38,11 

[ 3382 ] 

330 DATA 37,11.39,8.40.8.39,4.39.5,39.6.5, 
23,6,23,7,23,8,23,9,23,10.23 

( 3634 ] 

340 DATA 20,17,31,25.32,25,33.25.35,25,35, 
25,37,25.39,25,40,25.1,15,2,15,29,3 

[3243] 

350 DATA 32,7.31,21,37.16,38,17,38,18,2.9, 
13,19,14,25,23,8,38,20,40,14.25 

[2194] 

360 RESTOaE:FOR iX=l TO 228;READ aX.bX:LOC 
ATE aX,b%:PRINT CHRS(230);:NEXT:vX=0:GOTO 
380 

[4004] 

370 FOR iX=l TO 206: LOCATE INT(40«RND(1)) 
+1.INT(25«RND(1))+liPRINT CHB${230);:NEXT: 
vX=1:opX=0:opzX=0 

[5373] 

380 PEN 1:L0CATE 1,1:PRINT CHR$(32);CHRS(3 
2):LOCATE 1.2;PRINT CHB$(32);CHRS(32):LOCA 
TE 39,1:PRINT CHRS(32);CHRS(32);LOCATE 39, 
2:PB1NT CHRS(321:CHR$(32) 

[7439] 

390 • 

[117] 

400 ’/ / / / Sprite definieren / / / / 

[634] 

410 ’ 

Listing RSX-Profi 

[117] 



ni 1 IO für alle Schneider PC und 

rLUO IBM Kompatiblen PC 



EIN TRAUM WIRD WIRKLICHKEIT - UNABHÄNGIGKEIT IN PUNKTO SOFTWARE? - AB SOFORT KEIN THEMA MEHR 


BÜRO-PLUS garantiert Ihnen die Unabhängigkeit vom Software-Haus und 
vom Programmierer! 

Dies ist keine leere Versprechung, denn Sie erhalten mit Ihrer Software den 
Quellcode des Programms und das Datenbanksystem mit dem die Softwa¬ 
re erstellt wurde. 

BÜRO-PLUS - Ihr erster Schritt in die Software-Generation von morgen. 
Warum unnötig Geld verschenken? - BÜRO-PLUS bietet Ihnen die Mög¬ 
lichkeit des »MORGEN« schon »HEUTE« einzusetzen. 


BÜRO'PUJS DAS IST: 

- Ihre Kundenverwaltung 

- Ihre Fakturierung 

- Ihre Lagerverwaltung 

- Ihre Lieferantenverwaltung 

- Ihr Zahlungsverkehr 

- Ihre Dienstprogramme 

- Der Quell-Code aller Programme 





Detaillierte Unterlagen liegen für Sie ab sofort kostenlos bereit. 


Händleranfragen erwünscht! 



Entwicklung und Alleinvertrieb von BÜRO-PLUS: 


uoLFORno hehschke omEnTECHm 
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[~ Serie 


420 '"Ball" 

430 nX=0 'Sprlte-Nuffimer 

440 fX=0:!SP.DEF,nX,16,14,1,@fX;IF fX=0 TH 
EN STOP 

450 I SPRITE,nX.O.0,-255,0,-255,0,-255, O’Sp 

rite loeschen 

460 1 SPRITE,nX,4,0,-7,1 

470 ISPRITE.nX,0.1.0,0,-11,1 

480 ISPRITE,nX,0.2.0,l,-5,0,-7,l 

490 ISPRlTE.nX,0,3.0.-6,1,0,0.-5,1 

500 !SPHITE,nX,0,4,-4,1,-3,2,1,1,0,0,-4.1 

510 !SPRITE,nX.O,5,-3,1,2,-7,1,-3,0,1 

520 !SPRITE,nX.O,6,-3,1,2,-11,1 

5 30 I SPRITE,nX.O,7,-4,1,-3.2,1,-3.3,-4,1 

540 ISPRlTE.nX.0.8,-11,1.3.-3,1 

550 ISPRlTE.nX,0,9.1,0,0,-8,1,3,-3,1 

560 ISPRlTE.nX,0,10,0.1,1,-4,0,1,-3,3.-3,1 

570 lSPRITE,nX,0,11.0,-6,1,0,0,-5,1 

580 ISPRlTE.nX,0.12.0,0,-7.1,0,-3,1 

590 ISPRITE,nX,4.13.-7,1 

600 ' 

610 'Sprite aktivieren (einschalten) 

620 fX=0:ISP.ON,nX,@fX:IF fX=0 THEN STOP 
630 ISP.PUT,0.0,199 
640 • 

650 ’/ / / / System-Schleife / / / / 

660 ' 

670 tl=TIME:zaehlerX=0:I SP.GOSUB,890:ISP.K 
OL.1:xX=0:yX=199: 1 SP.FRAME.1:loopX=0:EVERY 
1,3 GOSUB 7iO:WHILE loopX=0;WEND 
680 ' 

690 '/ / / / Joystick-Abfrage / / / / 

700 ■ 

710 IF JOY(0)=0 THEN RETURN 

720 xaX=xX;yaX=yX:opzX=opzX-l:IF opzX=l TH 

EN 1SP.KOL,1;strafX=straf+50 

730 IF JOY(0)=1 THEN yX=yX*4:GOTO 800 

740 IF JOY(0)=2 THEN yX=yX-4;GOTO 800 

750 IF JOY{0)s4 THEN xX=xX-4;GOTO 800 

760 IF JOY(0)=8 THEN xX=xX44;G0T0 600 

770 IF JOY(OK>16 THEN RETURN 

780 IF vX=0 THEN RETURN 

790 opzX=10:ISP.KOL.0:RETURN 

800 IF xX<0 THEN xX=0;PRINT CHRS{7);:RETÜR 

N 

810 IF xX>304 THEN xX=304:PRINT CHR5(7)::R 
ETURN 

820 IF yX<15 THEN yX=15:PRINT CHR$(7);;RE 
TURN 

830 IF yX>199 THEN yX=199;PRINT CHR$(7);:R 
ETURN 

840 IF xX=304 AND yX=199 THEN 930 
850 I SP.MOVE.O.xX.yX;RETURN 
860 ’ 

870 '/ / / / Kollisions-Behandlung / / / / 
880 ■ 

890 zaehlerX=zaehlerX+1:xXsxaX;yXsyaX;ISP. 
KOL,0: I SP.MOVE,0.xaX,yaX:iSP.KOL.1; I SP.RET 
ÜRN 
900 ■ 

910 '/ / / / Spiel-Ende / / / / 

920 ' 

930 MODE 1;PBINT;PRINT"Sie haben ”; 2 aehler 
X;"inal in ': INT ( (TIME-t 1)/300 ) ; " sek.";"di 
e Begrenzung beruehrt."; 

940 LOCATE 1,8 ; PRINT"Moechten Sie nocheiniti 
al spielen?PRINT "Bitte geben Sie dann d 
ie Nummer des Spieles an, ansonsten ei 

n ’ N ■ ! '■ 

950 PRINT;PR1NT;PRINT" 1 - das erste Spiel 
PRINT;PRINT" 2 - mit einem durch Zufall 
erzeugtem Spielfeld":PRINT:INPUT "Ihre V 
ahl";ant$: IF UPPERS(ant$)="N" THEN END 
960 CLSiIF ant$="l" THEN RUN 360;ELSE IF a 
nt$="2” THEN RUN 370 ELSE 930 
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[1842] 

[117] 

[1133] 

[5889] 

[1584] 

[1074] 

[2106] 

[ 2121 ] 

[1717] 

[1413] 

[2310] 

[2302] 

[2197] 

[3603] 

[2192] 

[1640] 

[1915] 

[1171 

[1337] 

[117] 

[4620] 


[117] 

[933] 

[117] 

[10408] 


[10983] 


[12639] 


[3609] 
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40 ' 
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70 '- 


[3793] 

[117] 

[4466] 

[117] 

[ 868 ] 

[117] 

[3793] 


Listing RSX-Profi 


80 ■ [117] 

90 'Bitte laden und initalisieren Sie zuer [4767] 
st Profi RSX (Sprite-Befehle) 

100 'und reservieren Sie dann einen Speich [4319] 
erbereich (mit SP-MEMORY). 

110 'bevor Sie dieses Programm starten. [2471] 

120 ■ [117] 

130 xX=0;'ICON-Nr. festlegen [1923] 

140 fflX=l:'Mode festlegen [1141] 

150 ' [117] 

160 fehlerX=0:ISP.DEF.xX,52,20.mX.ÄfehlerX [4061] 
:'ICON-Groesse festlegen 

170 IF fehlerX=0 THEN STOP [1059] 

lÖO ’ [117] 

190 ISPRITE,xX,0,0,-255,0,-255,0,-255,0,-2 [3727] 
55,0,—255,0:'ICON loeschen 

200 ' [117] 

210 'ICON definieren [981] 


220 ISPRITE.xX.0,0,-6.1,-6,0.3.3,-3.0,3,3, [3837] 
0,0,3,0,3,0,3,0.0 

230 1 SPRITE,xX.28,0,3.0,-3,3,0,3,0,3,3,0,0 [3572] 
.-3,3,0.-3.3,0.-4,2 

240 ISPRITE.xX.O.1.-7.1,-4,0.3,-4,0,3, 0 . 0 , [ 3859] 
3.0,3,0.3.0.3.3.0 

2 50 ISPRITE,xX.28,1,3,0,3,-3,0,3,0,3,0,3,0 [4648] 
.3,-3,0.3,0,0,3,0,2,2,0 

260 lSPRITE,xX,4,2,0,0.1,1,-4,0,3,3,0.0,3. [4065] 
-4,0 .-3,3,0.3.0,3 

270 ISPRITE.xX,28.2.3,0,3,3,0,0,3,0,3. 0 ,3, [4443] 
0.3.3.0,0,-3.3,0,2 

280 ISPRITE,xX.4.3,0.0,1,1 ,-6,0.3,0.3, 0.0 , [4314] 
3.0,3.0,3,0.3,0.0 

290 ISPRITE.xX,28,3,3,0,3,-3,0.3,0.3,0,3,0 [3711] 
.3.-3,0,3,0,3 

300 I SPRITE,xX.0,4,0,0,-5,1,-5.0,3,3,-3,0, [ 4387] 
3,3.0,0,3.0,3,0,3,0.0.3 

310 ISPRITE.xX.28.4,3.0,-3,3.0.3,0.3.3,0.0 [2803] 
.-3,3,0.3,0,0,3 

320 ISPRITE.xX.O,5.0,0,-4.1,-15,0.2 ,-19,0 , [ 3627 ] 
2 

330 ISPRITE.xX.O.6.0,0.1,1.-13.0,-24,2 [3446] 

340 ISPRITE.xX.O,7.0,0.1,1,-9,0,-4,2,-20.0 [3213] 
.2.2 

350 ISPRITE,xX.O.8,0,0,1,1,-3,0,-5,1,2.2,0 [5496] 
.3.0,3,0.0,3,0,-3,3.0,3.3 

360 ISPRITE,xX.28,8,3.0.-3,3,0,0,3.0,0,3,0 [3644] 
.0,3,0.0,-3,3 

370 ISPRITE.xX,0.9,0.0,1.1,0.2,-6,1.2,2,0, [3408] 
3,0.3,3,0.3,0.0.3,0,0,3,0 

300 ISPRITE.xX.28,9,0,0.3,0.0,3,0,3.3,0,3, [3359] 
0,3,0.3.0.0,3 

390 I SPRITE,xX,0,10,0,-4,2.1,1,-7,2.0.3.0 , [4851 ] 
3,0,3,3,0,0,3,0,0,3.3 

400 I SPRITE,xX,28.10,0,0.-3,3.0,0,3.0,3.3 . [ 3941 ] 
0.-3.3.0,0,3 

410 I SPRITE,xX,0,11,-4.2,1,1.-8,2.0,3,0.3, [ 4232 ] 
0,0,3.0.0,3.0,0,3 

420 ISPRITE.xX.28,11,0.0,3.0,3,0,0,3.0,0.3 [4595] 
.0.3.0,3,0,0,3.0,0,3.3 

430 ISPRITE.xX.O,12.0.-3,2.1,1,-8.2,0,3,0 , [3677] 
3.0,0,3.0,0,3,0,0,3,3 

440 ISPRITE.xX,28,12,3,0,3,0,0,3,0,3,0,0,3 [4608] 
,0,3,0,3,0.0.3,0.0.3.3.0,0,0 

450 ISPRITE,xX,0,13,0.0.2.2,1,1.-0.2,-8.0. [3148] 
-3,2 

460 ISPRITE.xX,0,14,-3,0,2,2.1.1.-15.2 [3326] 

470 ISPRITE,xX.4.15.2,2.-6,1,2.2,-38,1 [3374] 

480 lSPRITE,xX,4,16.0.2.2.-5,1.2,2.-38 .1 [3373] 

490 ISPRITE.xX,4.17,0.0.-9,2.-28,0,3,3,0.3 [4115] 

. 3 , 0 , 0,3 , 3 

500 I SPRITE,xX.4,18,-3,0,-5.2,-30,0.3,-3,0 [4042] 
.3.3.0.3.0.0 

510 I SPRITE,xX.8,19,2,-34,0.3,3.0,3.-3,0,3 [3236] 

. 3 


520 ' [117] 

530 ISP.ON.xX,dfehlerX:'ICON einschalten [1994] 
540 ■ [117] 

550 MODE mXtlNK 1.6:INK 2.24;INK 3,26 [1097] 

560 ' [117] 

570 ISP.PUT.xX.0,191:'ICON darstellen [1964] 

580 ■ [117] 

590 LOCATE l.lOrPRlNT" Mode «XPRINT [5153] 
:PRINT" Bitte druecken Sie eine Taste!":? 

RINT 

600 IF INKEY$="" THEN 600 [808] 

610 • [117] 

620 I SP.GET.xX: 'ICON wieder vom Bildschirm [3383] 
entfernen 

630 ’ [117] 

640 I SP. OFF . xX , ehl erX : ' ICON wieder aussc [3457] 
halten 

650 • [117] 

660 IF mX=l THEN mX=0:GOTO 150 ELSE END [1411] 
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Schneider 

EGA-PC 

3086 Mihio-Proaessoi. 640 KB Speicherkapazität Integrieitei 
Mubtfunktions-Grafik-Adapler (MIGA). Über DlP-Schalter 
umschaltbat auf EGA, CGA und Herkules-Auflösung. 
3 lange Erweitenings-Steckplatze Die optionaile Festplatte 
belegt keinen dieser Steckplatze Wahlweise 1 oder 2Disket- 
len-Laufwerke oder 1 Laufwerk und 1 20 MB Festplatten- 
taufwerk Komplett mit Monochrome-Monitoi (schwarz/ 
weiß) oder einen Farbmonitor DieaufdieHauptplaiine inte¬ 
grierte Farbgrafik-Karte kann in mehreren Modi betneben 
weiden 

Textmodus’ mittlere Auflösung 40 x 25 Zeichen, 
hochauflösend 80 > 25 Zeichen 

Crsfikmodus. Monochrome-Monltor; Korcules-Auflosung. 
Scbwarz/weiD-DaieteUung itui 720 x 346 Bildpunkten, CGA 
Farb-Grahk-Bildschirm: 320 x 200 Punkte. 4 Farben aus 16 
wählbar oder 640 x 200 Punkte, 2 Farben aus 16 wahlbar 
EOAFarb-Grarik-Bildsclurni 640 x 350 Punkte m. 16 Farben. 
Deutsche Tastatur. Zwei-Tasten-Maus Microsoft-kompati- 
bles »MOUSE COM", plus spezielle Text-Operationen 
Umfangreiche mitgeliefcrte Software (4 Disketten) Micro¬ 
soft MS OOS 3.2 Digital Research GEM. GEMDesktop Digi¬ 
tal Research GEM Patnl (Zeichenprogramm] GEM Unter¬ 
stütztes Locomouve BASIC 2 
Ausführliches Benutzer-Handbuch in Deutsch. 


Schneider DMP 3160 Matrixdrucker 

Papieibreite 10 Zoll, 160 Zeichen ono 
pro Sek. 40 Zeichen pro Sek. NLQ OM D90i~ 

DMP 3000 Matfixdnicker cjto 

105 Zeichen pro Sek. DM04Oa'* 

DMP 4000 Matrixdrucker «iao 

DIN A3, 200 Zeichen pro. Sek. DM 99o.- 






ECD/HD 20 

ECD/DD 

ECD/SD 

CD/HD 20 

MH/HD 20 

CD/DD 

CD/SD 

MD/DD 

MD/SD 

* Lieferbar voreuesichtiich ab 9/87 


DM 4.498.- 
DM 3.498.- 
DM 2.998.-* 
DM 3.698.'* 
DM 3.198.-* 
DM 2.698.-* 
DM 2.198.'*, 
DM 2.198.-* 
DM1.698.'* 


Schneider PC 1512 MM/HD 2 


mit von uns nachträgl. eingebauter Oiigiiial-20 HB 
Festplatta. 


Schneider PC 1512 MM/SD Schneider PC 1512 MM/DD 


IBM-kompaubler Personalcomputer mit 512 KB 
Hauptspeicher, Monochiom-Motutor (schwarz/weiß) 
1 360 KS SV4 ' Diskettenlaufwerk 


1499: 


mit von uns nachträgl. eingebautem 2. Laufwarit. 

IBM-kompatibtoi Personalcomputer mit 512 KB 
Hauptspeicher Monochiom-Momtoi (sehwarz/weiil) 
2 360 KB S’A'-Disk.-Laufwerke 


TBM kompatibler Personalcomputer mit 512 KB 
Hauptspeicher. Monochrom Monitor (schwarz/ 
weiß). 360 KB BV« ’ Diskettenlaufwerk, 

20 MB-Festplaite ^ 


1798: 2298: 


HD-20 EINBAUKTT 

komplett mit Lüftei, 

20 MB-Festplatte 

RAMERWETTERUNG FÜR 
PC AUF 640 K 

STAUBABDECKHAUBE 
FÜR PC 

DRUCKER¬ 

ANSCHLUSSKABEL 


DM 998.' 


DM 79.- 


SCHNETOER DISKETTEN 

5'/. ", 10 Spezial Schneider 
Disketten 2 S/DD in Kunstetoff- 
Archiv-Box ca 

DM 39.50 


DM 49.80 




DM 39.80 
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SPS auf dem CPC 

Folge a 

In dieser Folge soll die Simulation des Stromiaufplans um ein Zeitrelais 
erweitert werden. Als Beispiel dient hierfür eine automatische Stern- 
Dreieck« Anlaßschaltung . 


Ll LZ L3 

LU 

SternschAltun^ 

LI L2 

ftltJ 

>reiecksc^tel 

LS 

rt 

ung 

BtLO 2 AnBchlLiß eines Dr 

•n «t r omifiet or s 


Abb. 2 


In Bild 1 steht die Anweisungsliste der 
Wendeschaltung aus Folge 3. Die Be¬ 
merkungen in der rechten Spalte sind 
für die Funktion nicht notwendig. Sie 
erhöhen die Lesbarkeit der SPS-An- 
weisungslisten. Die Zeilen 7 und 14 
(mit einem »*« gekennzeichnet) sind 
bei der Wendeschaltung ohne direkte 
Umschaltung wegzulassen. 

Ob eine direkte Umschaltung von einer 
Drehrichtung in die andere in der Pra¬ 
xis technisch sinnvoll ist, muß im Ein¬ 
zelfall geklärt werden. Auf eins sollte 
jedoch geachtet werden: Da ein SPS- 
Steuerungsgerät eine hohe Taktfre¬ 
quenz hat, schalten die Ausgänge sehr 
schnell. 

Viel schneller als ein Schütz anzieht 
oder abfällt. Dies wird im Umschalt¬ 
zeitpunkt von AOO und AOl dazu fuh¬ 
ren, daß die Kontakte der beiden ange¬ 
schlossenen Schütze kurz gleichzeitig 
geschlossen sind. Ein Kurzschluß im 
Hauptstromkreis ist die Folge. 

Wenn die gleichzeitige Kontaktgabe 
von Schützen im Hauptstromkreis 
nicht erlaubt ist, müssen die Schütze 
durch ihre Kontakte gegenseitig, zu¬ 
sätzlich zum SPS-Programm, verrie¬ 
gelt werden. 


«ENDESCHALTUNG HIT DIREKTER UMSCHALTUNG 


0 

L 

EOO 

SICHERUNG 

1 

ü 

EOl 

AUSTASTER 

2 

2 

MOO 

AÜSMERKER 

3 

NOP 



4 

L 

£02 

EIN RECHTS 

5 

0 

AOO 


6 

U 

MOO 


7 

UN 

E03 

V 

8 

UN 

AOl 



= 

AOO 

MOTOR RECHTSL 

10 

NOP 



11 

L 

KOS 

EIN LINKS 

12 

0 

AOl 


13 

ü 

MOO 


14 

UN 

£02 

» 

18 

UN 

AOO 


16 

s 

AOl 

MOTOR LINKSL. 

17 

PE 




BILD 1 - LOsung der Aufgabe von Folge 3 


Abb. 1 


Funktion eines Zeitrelais 


Ein Zeitrelais kann verzögert anziehen 
oder verzögert abfallen. Das heißt: 
Nach Anlegen der Schaltspannung an 
der Spule des Relais schließen die Kon¬ 
takte nicht sofort, sondern erst nach 
einer bestimmten Zeit (anzugsverzö¬ 
gert). 

Bei Abschalten der Spannung an der 
Spule Öffnen die Kontakte verspätet 
(abfallverzögert). 

In den SPS-Geräten ist nur das anzugs¬ 
verzögerte Zeitglied enthalten. Durch 
entsprechende Programmsequenzen 
kann man auch hiermit eine Abfallver- 
zögerung (Beispiel: Treppenhausbe¬ 
leuchtung) erreichen. 

Die verschiedenen Möglichkeiten wer¬ 
den in Folge 5 vorgestellt. 

Die Verzögerungszeit kann entweder 
direkt am SPS-Gerät eingestellt werden 
oder wird über eine Tastatur bei der 
Programmeingabe mit eingetippt. 

Bei der Schaltungssimulation in diesem 
Heft ist die Zeit mit 15 Sekunden fest 
vorgegeben und kann nicht geändert 
werden. 


Stern-Dreieck-Schaltung 


Elektromotore ziehen beim Einschal- 
ten ein mehrfaches ihres Betriebsstro¬ 
mes als im Nennbetrieb (Normalbe¬ 
trieb). 

Die Stromstärke steigt bei Drehstrom¬ 
motoren auf ungefähr den achtfachen 
Wert des Nennstromes. 

Um den hohen Einschaltstrom zu be¬ 
grenzen, kann man bei Drehstrommo¬ 
toren die Beschaltung der Motorspulen 
ändern. In der Sternschaltung (siehe 
Bild 2) »teilen« sich jeweils zwei Spu¬ 
len die Netzspannung, und es fließt ein 
kleinerer Strom. Da die Leistung des 
Motors in Sternschaltung ein Drittel 
der Leistung des Motors in Dreieck¬ 
schaltung beträgt, darf der Anlauf nicht 
unter Last erfolgen. Geeignet ist dieses 
Verfahren z.B. für große Kreissägen 
und Hobelmaschinen. 


Eingabe des Programms 


Bei der Eingabe der Zeilen 1060 bis 
1080 keine Änderungen vornehmen. 
Die Schleife muß »rückwärts« laufen, 
und die Zuweisung der Leerzeichen 
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Abb. 3b 


4. 0 LE02 

1 UEOl 

2 OMOO 

3 = MOO 

4 = TOO 

5 PE 

5. 0 LE02 

1 O AOO 

2 UN TOO 

3 = AOO 

4 = TOO 

5 PE 

Da das Resultatregister nach einer Zu¬ 
weisung auf einen Ausgang den Inhalt 
nicht ändert, sind mehrere Zuweisun¬ 
gen direkt hintereinander möglich. 

Bis zu 100 Merker (MOO bis M99) sind 
verwendbar. In dieser Simulation wird 
nur das eine Zeitglied TOO unterstützt. 


muß mittels des SPACE-Befehls erfol¬ 
gen, da sonst die Anlage des Datenfel¬ 
des fehlerhaft wird. 

Das Programm ist dem Listing aus Fol¬ 
ge 3 ähnlich. Da aber neben den größe¬ 
ren Änderungen viele kleine Einfügun¬ 
gen enthalten sind, ist das vollständige 
Programm in diesem Heft abgedruckt. 
Zum Start des Programms benötigen 
Sie den Editor aus Folge 2, Heft 8/87. 
Ich empfehle Dinen, daß Sie sich eine 
Diskette nur für die SPS-Programme 
anlegen. 


Anwendung des Progranuns 


Nach dem Start wird zuerst der Editor 
zugeladen. Dann meldet sich das 
Hauptmenü mit den Punkten: 

1 Programm eingeben/ändem 

2 Programm Normallauf 

3 Programm Einzelschritte 

4 Programm ausdrucken 

5 Programm abspeichern 

6 Programm einiesen 

Gehen Sie jetzt in den Programmpunkt 
1 und geben in die Anweisungszeile 0 
und 1 jeweils einen NOP-Befehl ein 
(Beschreibung des Editors in Folge 2). 
Nach dem Verlassen des Editors mit 
ESC können auch die Programmpunk¬ 
te 2 bis 5 gestartet werden. 

Beim Start des Normallaufs erhalten 
Sie die Darstellung gemäß Bild 3a. Die 
weitere Bildfolge 3b bis 3d zeigt Sta¬ 
dien des Ablaufs der automatischen 
Stern-Dreieck-Anlaßschaltung. Ihre Auf¬ 
gabe ist es, die notwendige SPS-An¬ 


weisungsliste hierfür zu programmie¬ 
ren. Ein Lösungsvorschlag erfolgt 
dann im nächsten Heft. 

Um das Zeitglied zu testen, geben Sie 
über den Editor (Programmpunkt 1) 
bitte die verschiedenen Beispiele ein: 

1. 0 LE02 

1 = TOO 

2 PE 

2. 0 LE02 

1 = AOO 

2 = TOO 

3 PE 

3. 0 LE02 

1 O AOO 

2 = AOO 

3 = TOO 

4 PE 


Funktionstasten 
beim Testen 


Zum Austesten des SPS-Programms 
gibt es neben dem Normallauf ver¬ 
schiedene Möglichkeiten. 

Die Eingänge EOO, EOl und E02 wer¬ 
den über die Zifferntasten 0,1 und 2 als 
Taster geschaltet. Sie kippen bei Ende 
der Betätigung in ihre Ruhelage zu¬ 
rück. 

Nach Drücken der SPACE-Taste hält 
das SPS-Programm an. Die Eingänge 
halten nun ihre geschaltete Position. 
Mit der Taste »D« wird ein Programm¬ 
durchlauf erzeugt. Hiermit kann man 
gezielt einzelne Durchläufe mit ihren 
Wirkungen austesten. 

Während das SPS-Programm hält, 
wird auch der Zeitablauf des Zeitrelais 
»eingefroren«. Zur Manipulation kann 
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...UND 

PLÖmiCH 

BRAUCHEN 

SIE ZUR 

DATEN¬ 

SICHERUNG 
VON 20 MB 

ANSTATT 

50 DISKETTEN 

NUR NOCH 

40 MINUTEN 


Sie sichern auf einein kompakten Band 25 MB Daten 
mit dem vortex FT 1525. 


Wenn Sie regelmäßig größere Datenmengen 
zu sichern haben, wissen Sie, daß man zur 

Komplettsicherungeiner20MB-Festplatte50 
herkömmliche 360 KB-Disketten benötigt. 
Und daß man dafür über 3 Stunden als Disc¬ 
jockey in Action ist. 

Das muß aber nicht sein. Denn das vortex 

Band-Backup-Subsystem FT 1525 faßt in 40 
Minuten automatisch auf einem kompakten 
Band volle 25 MB. 

Und so wird's gemacht: 

• vortex FT 1525 Adapterkarte in den PC 
einstecken; 

• FT 1525 mit der Adapterkarte verbinden 
(Kabel wird mitgeliefert); 

• die Software installieren; 

• das mitgelieferte Band formatieren, fertig! 

• Die Datensicherung kann beginnen. 


Übrigens verfügt der FT 1525 über ein eige¬ 
nes Netzteil mit einem angenehm leisen Lüf¬ 
ter, Das Netzteil des PC wird somit nicht 
zusätzlich belastet 

Lieferumfangi 

FT1525,1 Controller-Steckkarte,1 deutsches 
Handbuch, 1 Systemdiskette, 

1 leere Datencassette. 

Erforderliche Hardware: 

PC 1512 oder andere IBM-Kompatible. 



I-N-F-O-S-C-H-E-C-K 

Bitte senden Sie mir weitere Informationen über den 

FT 1325. 



eoMPUTEnsveTCtwiE 


... UND PLÖTZLICH LEISTET IHR COMPUTER MEHR 


I vortex Computersysteme GmbH 
j Falterstraße 51-53 ■ 7101 Flem • Telefon (071 31) 52061 
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Abb. 3d 


mit der Taste »T« die Ablaufzeit um je¬ 
weils eine Sekunde verkürzt werden. 
Die Auswirkungen können über die 


Taste “D“ (ein Durchlauf) oder über 
die SPACE-Taste (Zurückschalten in 
den Normallauf) geprüft werden. 


Bei Betätigung der Taste »E« wird das 
SPS-Programm in Einzelschritten 
durchlaufen. Diese Form der Abarbei¬ 
tung kann auch vom Hauptmenü über 
Programmpunkt 3 direkt erreicht wer¬ 
den. 

Auch im Einzelschrittbetrieb ist die Ta¬ 
ste »T« aktiv. Mit »SPACE« werden die 
Anweisungen durchgeschaltet und mit 
»R« kann das Resultatregister verän¬ 
dert werden. Siehe hierzu auch die Be¬ 
schreibung in Heft 9, Folge 3. 


Vorausblick 


Im nächsten Heft folgt ein allgemeines 
SPS'Simulationsprogramm mit 20 Ein¬ 
gängen, 16 Ausgängen und 5 Zeitglie¬ 
dern. Die einzelnen Elemente können 
beschriftet werden und die Zeiten der 
Zeitglieder sind einstellbar. 

(Werner Renziehausen) 



1000 ' SPS - Stern-Dreieck-Schaltung - (C) [3634] 
W. Renziehausen V.06.87 (8108 Bytes) 

1010 ' [117] 

1020 MEMORY 38999 :OPENOUT''d" ; MEMORY HIMEM- [2581] 

1:CLOSEOUT 

1030 MODE IrLOCATE 11.11:PRINf'Editor wird [8988] 
geladen" : LOCATE 13.15 : PRINT''Bitte warten 
..."iCHAIN MERGE "sps-edit.asc".1040 
1040 DEFINT a-h.k-r.t [687] 

1050 xiDadr = 39O00:xe00 = 41300:xaO0 = 41400;*inO [2591] 
0=41500:xtOOB=41600:xtOOe=41700 

1060 POKE xinBdr.&C9;DIM bef S ( 255 ) . opkS ( 255 [3782] 

).oppS{255).bemS(255) 

1070 FOR i=255 TO 0 STEP -1:bem$(i)=SPACE$ [5330] 
(13);opp${i)=SPACES(2):opkS(i)=SPACE$(1):b 
ef$(i)=SPACE$(3):NEXT 

1080 laengeS=SPACES(1):xen=0:xansO:xresadr [11025] 
=xe00-50:xnadres=xe00-49:rhb=INT(xresadr/2 
56):rlb = xresadr-256»rhb:POKE xresadr.O;bef 
$=" "lopkSs” "loppSs" ";bem$=SPACE$(13) 

;aS = '' ■':b$ = " ":cS = " '■:tS = ” " ; r)r$ = "000''; m 

$=CHR$(233):datenS=”SPS-yda ,DAT" 

1090 INK 0.1:INK 1,24;INK 2.0;INK 3.26:PAP [7022] 
ER 0:PEN 1:BORDEB 0:KEY DEF 70.0,0;POKE 4B 
4E8.255:POKE AB4E7.0;CLS 


1100 GOTO 2570:’ Hauptmenue [1833] 

lliO • [117] 

1120 ' UPs fuer den Kontaktplan [1882] 

1130 • [117] 

1140 ’Schliesser [811] 

1150 DRAWR 0.-15:PLOTR -lO.OiDRAWR 10,-30; [2778] 
DRAWR 0,-15:RETURN 

1160 ’Oeffner [291] 

1170 DRAWR 0,-15:DRAWR 15,0;PL0TR -5,5;DRA [4663] 
WR -10.-35:DRAWR 0,-15;RETURN 

1180 'Relais [653] 

1190 DRAWR 0,-20:DRAWR -20.0;DRAWR 0.-20:D [3731] 
RAWR 40,0;DRAWR 0.20 

1200 DRAWR -20,0:PLOTR 0.-20;DRAWR 0,-20;R [2052] 
ETURN 

1210 Punkt [100] 

1220 MOVER 2,2;DRAWR -4,0:DRAWR 0.-4;DRAWR [5095] 
4,0:DRAWR 0,4;MOVER -2,-2;RETURN 
1230 'Linie waagerecht [1976] 
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1240 DRAWR 80.0:RETURN [1095] 

1250 'Linie senkrecht [1652] 

1260 DRAWR 0.-60:RETURN [1542] 

1270 'Zusatz Zeitrelais [1036] 

1280 MOVER -20,20;DRAWR -20,0:DRAWR 20,20; [4074] 
DRAWR -20.0:DRAWR 0,-20:MOVER 0,20 
1290 DRAWR 20,-20;MOVER 20.-20:RETURN [1744] 

1300 'Taste Schliesser [473] 

1310 MOVER -25.-33;DRAWR 0,7;MOVER 0,-4;DR [6851] 
AWR 4.0:PLOTR 4,0;DRAWR 4.0;PLOTR 4,0:DRAW 
R 4,0:MOVER 5,30:RETURN 

1320 'Taste Oeffner [892] 

1330 MOVER -25,-33:DRAWR 0.7:MOVER 0,-4;DR [6329] 
AWR 6.0:PLOTR 6,0:DRAWR 6,0:PLOTR 6,0:DRAW 
R 6.0:MOVER -5.30:RETURN 

1340 'Thermische Sicherung - Anzeiger [1687] 

1350 MOVER -25.-30;DRAWR 8,0:DRAWR 0.6;DRA [5319] 
WR 8.0:DRAWR 0,-6:DRAWR 14.0:MOVER -5.30:R 
ETURN 

1360 'Beschriftung Relaiskontakte [2306] 

1370 GOSUB 1430;PLOTR 0,0.3:MOVER -10-tl*l [4441] 
6,-22:TAG:PRINT MIDS(t$,1,tl);;TAGOFF:MOVE 
R 10,22:PLOTR 0,0.1:RETURN 

1380 'Beschriftung Taster links [2072] 

1390 GOSUB 1430;PLOTR 0,0,3:MOVER -32-tl*l [7114] 
6.-22:TAG:PRINT MIDS(t$,1,t1);;TAGOFF;MOVE 
R 32.22:PLOTR 0.0,1:RETURN 

1400 'Beschriftung Relais [1558] 

1410 GOSUB 1430;PLOTR 0,0,3:MOVER -2-tl*16 [7469] 
.-4;TAG:PRINT MIDS(tS.1,tl);:TAGOFF:MOVER 
2.4:PLOTR 0,0.1;RETURN 

1420 'Beschriftungslaenge [1893] 

1430 FOR i=3 TO 1 STEP -1 [835] 

1440 tl=i ; IF MID$( t$ . i , 1)0" " THEN i = 0 [ 2068] 

1450 NEXT:EETURN [940] 

1460 ' [117] 

1470 ' Schaltung - Grundstellung [1096] 

1480 ' [117] 


1490 MODE 1:INK 2,15,24:INK 3.11:BORDER 0; [3699] 
PEN#3.0:PAPER#3,3 

1500 KEY DEF 15.1.48:KEY DEF 13,l,49:KEy D [7672] 
EF 14,1.50:KEY DEF 5.1.51:SPEED KEY 1.1:WI 
NDOW#l.1,40,1,1:PEN#1.0;PAPER#1,1;GOSUB 15 
10:GOTO 1520 

1510 LOCATE#3,1,1;PRINT#3," Automatische [4853] 
r Stern-Dreieck-Anlauf ":RETURN 

1520 PLOT 0,399,3:DRAW 0,0:DRAW 639,0:DRAW [8061] 
639,399:PLOT 637,399:DRAW 637,2;DRAW 2.2: 

DRAW 2.399;PLOT 276,0;DRAW 276.384:PLOT 27 
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8.0;DRAW 278,384 

1530 WINDOW 2.17,3.24;PEN 0:PAPER 3 
1540 PRINT " Eingaenge PAPER 0:PEN 1 
1550 PRINT:PRINT"F1 Sichrg. EOO: 

1560 PRINT:PRINT"S1 Aus EOl; 

1570 PRINT:PRINT"S2 Ein E02: 

1580 PRINT;PEN 0;PAPER 3:PRINT " Ausgaenge 
PAPER 0;PEN 1 

1590 PRINT;PRINT"K1 Netz AOO; 

1600 PRINT:PRINT"K2 Stern AOl: 

1610 PRINT:PRINr"K3 Dreieck A02; 

1620 PRINT;PEN 0:PAPER 3:PRINT " Zeitglied 
•• ; PAPER 0 : PEN 1 

1630 PBINT:PRINT"K4T Verzg. TOOPRINT" 
TOO: 

1640 PRINT;PEN 3:PRINT CHR$(24)"'ESC' = Ab 
bruch";CHR$(24);" "; 

1650 ORIGIN 310.2;PLOT 0.10,1:DRAWR 320.0: 
PLOT 0.370:DRAWR 320.0 

1660 MOVE 40,370:MID$(t$,1.3)="F1 ":GOSUB 
1390:’Stromweg 1 

1670 GOSUB 1220;GOSUB 1350:G0SUß 1170:GOSU 
B 1330:MIDS(tS.1,3)="S1 ":G0SÜB 1390:GOSUB 
1170:GOSUB 1220:GOSUB 1 310 ; MI D$ ( t $ . 1 , 3 ) = •' 
S2 ":GOSUB 1390:GOSUB 1150:GOSUB 1220:GOSU 
B 1260:GOSUB 1260;MIDS(tS,1,3)="K1 "iGOSUB 
1410iGOSL)B H90:GOSUB 1220 
1680 MOVE 40,250:'Stromweg 2 
1690 GOSUB 1240;MID$(t$.1.3)="Kl GOSUB 1 
370;GOSUB 1150:G0SUB 1 2 2 0 : MIDS (tS , 1 . 3 ) = •'K4 
T":GOSUB 1370:GOSUB 1170;GOSUB 1260:MIDS(t 
$.1,3) = "K2 '•:GOSUB 1410;G0SUB 1190:GOSUB 1 
220 

1700 MOVE 40.190;'Stromweg 3 

1710 GOSUB 1240:GOSUB 1240;GOSUB 1220:MID$ 

(t$,1,3)="K4T":GOSUB 1370:GOSUB 1150:MIDS( 

tS.1.3)="K2 ’^GOSUB 1370:GOSUB 1170:MrDS{t 

$.1.3) = "K3 '’:GOSUB 1410;GOSUB 1190:GOSUB 1 

220 

1720 MOVE 200,190; ’Stroniweg 4 
1730 GOSUB 1240:GOSUB 1260:GOSUB 1260:MID$ 
(t$ , 1,3 ) ="K4T’':GOSUB 1410:GOSUB 1190;GOSUB 
1280:GOSUB 1220 

1740 MOVE 280.30;MID$(tS,1.3)="15s";GOSUB 
1410 

1750 PLOT 190,352,3:DRAWR IOO.OiDRAWR 0.-2 

4:DRAWR -IOO.OiDRAWR 0,26:DRAWR 102.0;DRAW 

R O,-20:DRAWR -104.0;DRAWR 0.28 

1760 POKE xaOO.OiPOKE xaOO+1.0:POKE xaOO+2 

,0:POKE xt00a,0:POKE xtOOe.O 

1770 GOTO 1950 

1780 ’ 

1790 • EIN - Arbeit 

1800 MOVER 0.-45;DRAWR 10,35.2:MOVER -8.-5 
:DRAWR 13,0:MOVER -15,-45 

1810 MOVER 2.20:DRAWR -8.25.0:MOVER 10,-4 
5;RETURN 
1820 • 

1030 ' AUS - Ruhe 

1840 MOVER 0,-45;DRAWR -10.30.1:MOVER 10,- 
45 

1850 MOVER 2,22;DRAWR 8,28.0;M0VER -8,-30; 
DRAWR 8,30:MOVER -8.-5;DRAWR 13,0:MOVER -1 
5,-45;RETURN 
1860 ■ 

1870 ' EIN - Ruhe 

1880 MOVER 0.-45;DRAWR 10.35,1:MOVER -8,-5 
;DRAWR 13.0:MOVER -15.-45 

1890 MOVER -2,20;DRAWR -8.25,0:MOVER 10.-4 
5:RETURN 
1900 ' 

1910 ' AUS - Arbeit 

1920 MOVER 0.-45;DRAWR -10.30,2;MOVER 10,- 
45 

1930 MOVER 2,22;DRAWR 8,28,0;MOVER -8,-30: 
DRAWR 8,30:MOVER -8.-5;DRAWR 13.0;MOVER -1 
5.-45;RETURN 
1940 ' 

1950 ' Eingabe 
1960 ' 

1970 IF es THEN e00=1;eOl=1;e02=0:tv=1:LOC 
ATE#1,1,1;PRINT#1," Weiterschalten mit d 
er <Leertasto> ": 

1980 IF es THEN CALL &BB03:SPEED KEY 100.2 


[860] 

[1782] 

[1806] 

[1245] 

[1180] 

[4675] 

[1311] 

[1105] 

[1271] 

[4253] 

[2914] 

[3854] 

[4266] 

[3147] 

[14739] 


[1059] 

[8002] 


[1284] 

[8988] 


[1636] 

[6235] 


[2824] 

[6205] 


[4160] 

[341] 

[117] 

[650] 

[4131] 

[2724 ] 

[117] 

[717] 

[2096] 

[4886] 


[117] 

[969] 

[4150] 

[2724] 

[117] 

[603] 

[2264] 

[4888] 


[117] 

[ 925 ] 
[117] 
[8059] 


[2699] 
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ACCESS BASE, die Datenbank 
mit beispielloser Effizienz. 

O Relational - einmalige 
Dateneingabe, vielfältige 
Datendarstellung 
O Virtuelle Speichertechnik - 
schnellere Datenauswertung 
O Integrierte Programmier¬ 
sprache PRO - auch für den 
Laien einfach erstellbare 
Individualprogramme 


ACCESS WORD, das Text¬ 
programm mit der kompletten 
Leistungspalette. 

OAIIe Standardfunktionen 
O Serienbrieffunktion 
O Speicherbare Standard¬ 
begriffe 

Zwei Anwendungen, die Sie 
einfach zu einem Programm 
integrieren können. Zum 
Preis von einem. 


Ich rrochte ACCESS BASE und ACCESS WORD kennenlerren Senden Sie mir Unterlagen. 

Mein Name _ 

Funktion:_ 

Be* Firma-_ 

Anschrilt 

Telefon_ _ 

Diesen Kupon bitte an SPI serflen' 



CWM SOFTWAAE PRODUCTS INTERNATIOKAL 

■ Rosenkanliatplatz 14. o aooo München ai.-blefon 083/921006-0. Teletex (17) B971M 


Garmischer Straße 4-6 
8000 Münctier 2 
089/519960 


Markt&Technikfciag ag 

Geschäflsöereich Softviare^ferlag 
Hans Pinsel-Straße 2 
8013 Haar 
089M6130 



AL50ABC Tradmg l^bH 
Mühlendamm 66 
2000 HatTtojTQ 76 
«02271070 


BSPiK Krug 
EDV-Beratung-Systeme 
WeBerturgäraße 49 
8400 Regensburg 
0941/792014 



CSSE Exdush« Distributor 
Hansasti^ 15 
3000 München 21 
089576031 
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ELSE SPEED KEY 1.1 
1990 IF halt THEN CALL &BB03 
2000 MID$(a$,l.l) = "o'-:MID$(a$,l,l) = INKEy$: 
CALL &BB03 

2010 WINDOW 17,17.5,24;IF es=0 AND halt=0 

THEN eOO=l:e01=l!e02=0 

2020 IF a$="0" THEN eOO=ABS(eOO-1) 

2030 IF a$="l” THEN e01=ABS(eOl-1) 

2040 IF a$ = '’2" THEN e02=ABS(e02-l) 

2050 IF a*="T" AND (es OR halt) THEN z=z+l 
:IF zeitOO THEN GOSUB 2390:GOTO 1980 
2060 IF a$ = '-D'‘ AND halt THEN CALL 4BB03; GO 
TO 2210 

2070 MOVE 40.370:IF eOO THEN GOSUB 1880;PE 
N 1 ELSE GOSUB 1920;PEN 3 

2080 PRINT bi$:IF eOl THEN GOSUB 1880:PEN 1 
ELSE GOSUB 1920:PEN 3 

2090 PRINT mSilF e02 THEN GOSUB ie00:PEN 1 
ELSE GOSUB 1840:PEN 3 
2100 PRINT m$ 

2110 IF aS="o" AND (es OR halt) THEN 2000 
2120 PEN 1:IF a$=CHR$(252) THEN SPEED KEY 
30,3:RETURN 

2130 IF es AND a$="H" THEN resultatsABS(PE 
EK(xre5adr)-l):POKE xresadr,resultat:TAGOF 
F;LOCATE#l,36,1;PRINT#1.USING"#"[resultat; 
:resalt=resultat 

2140 IF a$=”E" THEN es=ABS(es-1);IF es THE 
N halt=0:GOTO 1970 

2150 IF es THEN IF aSO" " AND aS<>CHRS(13 
) THEN 1980 ELSE 2210 

2160 IF a$=" " AND es=0 AND zl=0 THEN halt 
=ABS(halt-l):TAGOFF:LOCATE#!,29.1;IF halt 
THEN PRINT#!," PRGM-HALT "::tv=l ELSE GOSU 
B 1510:CALL &BB03 

2170 IF halt THEN CALL ABB03:G0T0 2000 
2180 ■ 

2190 ■ SPS - Programmaufruf 
2200 ' 

2210 IF es OR zl THEN xadr=xmadres:spsadr= 
xadr:POKE xadr.&3A:POKE xadr+1,rlb:POKE xa 
drt2,rhb:xadr=xadrt3:esflag=l:GOSUB 7090:P 
OKE xadr , äl 3 2 : POKE xadr + 1 . rlb: POKE xadr + 2,r 
hb:POKE xadr+3,&C9 ELSE spsadr^xmadr 
2220 POKE xeOO,eOO:POKE xeOO+1,eOl:POKE xe 
00+2,e02 

2230 CALL spsadr 

2240 IF zl=0 THEN zae= 2 ee+l:PLOT 0.-99.3:M 
OVE 192,346:TAG:PRINT USING"######";zae::T 
AGOFF 

2250 IF es OR zl THEN TAGOFF:LOCATE#!.1.1: 
PRINT#1," "befS(z1 +1)opkS(z1 +1)opp$(z1 +1)C 
HRS(149): 

2260 IF es OR zl THEN PRINT#!,USING"###";z 
1[ ;PRINT#1," ■•bef$(zl)opkS(zl)opp$( 2 l)" "b 
emS(zl); 

2270 ■ 

2280 ' Auswertung 
2290 ' 

2300 a00=PEEK(xa00);a01=PEEK(xaOO+1 ):b 02=P 
EEK(xaOO+2);ta=PEEK(xtOOa):te=PEEK(xtOOe): 
LOCATE 1,9 

2310 MOVE 120,250;IF aOO THEN GOSUB 1800;P 
LOT 0,-99,1:MOVE 33.48;TAG;PRINT CHRS(245) 
;; TAGOFF: PEN 1 ELSE GOSUB 1840: PEN 0:VIOVE 
33,4a:TAG:PRINT " TAGOFF:PEN 3 
2320 PRINT ffi$:MOVE 200,130;1F aOl THEN GOS 
UB 1920:PLOT 0,-99,1:MOVE 113,48:TAG:PRINT 
CHR$(245);:TAGOFF:PEN 1 ELSE GOSUB 1880;M 
OVE 113.40:TAG:PRINT " TAGOFF;PEN 3 
2330 PRINT mS:IF a02 THEN PLOT 0,-99,1:MOV 
E 193,48:TAG;PRINT CHRS(245);;TAGOFF:PEN 1 
ELSE MOVE 193,4e:TAG:PRINT " TAGOFF:PE 

N 3 

2340 PRINT mS 
2350 ’ 

2360 ’Zeitelied 
2370 • 

2380 GOSUB 2390:GOTO 2510 

2390 IF ta AND NOT te AND zeit=0 THEN zeit 
=TIME;z=0 

2400 IF es OR zl OR halt THEN 2420 ELSE IF 
tv THEN tv=0:zeit=TlME-z*300 
2410 z=(TIME-zeit)/300 

2420 IF zeitOO AND z>15 THEN te = l:zeit = 0; 


(7911 

[34221 

[2695] 

[1527] 

[1438] 

[598] 

[5544] 

[1642] 

[2608] 

[3486] 

[3853] 

[391] 

[1097] 

[2141] 

[ 11201 ] 


[2602] 

[2846] 

[8425] 


t1003] 
[117] 
[1442] 
[117] 

[ 12236] 


[3408] 

[581] 

[2905] 


[6073] 


[4764] 


[117] 

[1091] 

[117] 

[6097] 


[9268] 


[ 11211 ] 


[6507] 


[391] 

[117] 

[711] 

[117] 

[2157] 

[2224] 

[3995] 

[1895] 

[4221] 
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PLOT 0.-99,0:MOVE 264,46;TAG:PRINT" ";:TA 
GOFF 

2430 IF zeitOO THEN PLOT 0,-99.1:MOVE 264 
.46:TAG;PRINT USING”##";15-z::TAGOFF 
2440 IF ta=0 THEN te=0:2eit=0 
2450 MOVE 120,190:IF te THEN GOSUB 1920:MO 
VE 2O0.19O;GOSÜB 1800:PLOT 0,-99.1:M0VE 27 
3.48:TAG:PHINT CHRS(245);:TAG0FF:PEN 1 ELS 
E IF zeit=0 THEN GOSUB 1880rMOVE 200.190:G 
OSUB 1840:M0VE 264.48:TAG:PRINT " ";:TAGO 

FF:PEN 3 

2460 POKE XtOOe,te 

2470 LOCATE 1,17:IF PEEK(xtOOa) THEN PEN 1 
ELSE PEN 3 

2480 PRINT id$:L 0CATE 1,18:IF PEEK(xtOOa) T 
HEN PEN 1 ELSE PEN 3 
2490 PRINT oi$:RETURN 
2500 ■ 

2510 IF es OR zl THEN TAGOFF:LOCATE#!.33,1 
:PRINT#1.CHRS(149)"R=”;:PRINT#1.USING"#":P 
EEK(xresadr);:PRINT#1," (";:PRINT#1.USING" 
#"jresalt;:PRINT#1.")";;resalt=PEEK(xresad 
r):zl=zl+l 

2520 IF zlsende THEN zl=0:IF es=0 THEN GOS 

UB 1510 

2530 GOTO 1980 

2540 ’ 

2550 ' Hauptmenue 
2560 ' 

2570 MODE l;BORDER 0;PEN 1:PRINT STRING$(4 
0.208): 

2580 PRINT" "CHHS(164)" W, Renziehausen" 

SPC(11)"V.06.87 

2590 PRINT STRINGS(40.210) 

2600 LOCATE 7.8:PRINT"SPS STERN-DREIECK- 
ANLASSER 

2610 ORIGIN 0.0:PLOT 0,399.1;DRAW 0,0:DRAW 
639.0:DRAW 639,399 

2620 PLOT 637,399:DRAW 637,2:DHAW 2.2;DRAW 
2,399 

2630 WINDOW 8.38,12.24;a00=0:aOl=0;a02s0:e 
00=1:e01=l:e02=0:zae=0:es=0:zl=0:tv=0 
2640 FOR i=0 TO 9:POKE xaOO+i,0;POKE xm00+ 
i , 0 : NEXT : spsadr = xinadr :halt=0 
2650 PRINT"! Programm eingeben/aendern 
2660 PRINT;PRINT"2 ProgramiB Normallauf 
2670 PRINT :PRINT'’3 Programm Einzelschritt 


e 

2680 PRINT:PRINT"4 Programm ausdrucken 
2690 PRINT:PRINT"5 Programm abspeichern 
2700 PRINT:PRINT"6 Programm einiesen 
2710 CALL 8tBB0 3 

2720 MlDS(aS,l.l)="o";MID$( q$, 1.1)=INKEY$: 
IF a$="o" THEN 2720 ELSE a=VAL(aS) 

2730 IF a$=CHR$(252) THEN MODE 2;PRINT"WBr 

mstart mit GOTO 1100":END 

2740 IF a<l OR a>7 THEN 2720 

2750 IF a>l AND a<6 AND ende<2 THEN CLS:LO 

CATE 1.6:PRINT"KEIN PROGRAMM IM SPEICHER"C 

HR$(7):FOR 1=1 TO 2000:NEXT:CLS:GOTO 2650 

2760 CALL 4BB03 

2770 ON a GOSUB 5060,1490,2790,7980,7700,7 
820 

2780 GOTO 2570 

2790 es=l:zl=0:spsadr=xmadres:POKE xresadr 
,0:GOTO 1490 
2800 ’ 

5000 ' Editor fuer SPS V.05.87 - (C) W. 
RENZIEHAUSEN (13547 Bytes) 

5010 ' 

5020 ’ elngeben/aendern/uebersetzen/speich 

ern/lesen/drucken 

5030 • 


5040 ' Maskenaufbau 
5050 • 

5060 MODE 1:INK 0.0;INK 1,13:INK 2.20:INK 
3,24:BORDER 10:PEN#1,3:PAPER#1.1:PEN#2,0:P 
APER#2.1;PEN#3,0:PAPER#3,1;PEN#4.0iPAPER#4 
,1:xa=l:SYMBOL 254,255,255,255,255.0,254,1 
30,0;SYMBOL 253,130,254,0,0,255,255.255,25 
5 

5070 PAPER 0;PEN 2:PRINT" Nr Bef Ope Beme 
rkung"SPC(8 >"HiIf e "; 

5080 LOCATE 1,25:PRINT" Steuerung: "CHRSl 
243)" ”CHR$(242)" "CHRS(240)" "CHR$(241)" 


[4358] 

[ 688 ] 

[11494] 


[741] 

[2791] 

[3530] 

[1317] 

[117] 

[9813] 


[2285] 

[367 ] 
[117] 
[836] 
[117] 
[2291] 

[3160] 

[1560] 

[2335] 

[3043] 

[ 1693] 

[5199] 

[5114] 

[2597] 

[3248] 

[2437] 

[3103] 
[2551] 
[1756] 
[ 396] 
[3546] 

[5342] 

[1633] 

[8115] 


[396] 

[2809] 

[313] 

[2966] 

[117] 

[4393] 

[117] 

[3016] 

[ 117] 

[1431] 
[117] 

[ 13213] 


[4010] 

[6767] 
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DEL ESC = Ende ": 

5090 PEN OiPAPER 1:F0H i=2 TO 24 [1282] 

5100 LOCATE l.irPHINT CHR$(133):LOCATE 27 (4697) 
.i:PRINT CHR$(133):LOCATE 40.i:PRINT CHR$( 

138) : 

5110 NEXT [35Ö] 

5120 LOCATE 1,22:PRINT CHR$(135)STRINGS(25 [1929] 
.131) 

5130 LOCATE 1.24:PRINT CHRS(141)STRINGS(25 (2347) 
, 140) 

5140 WlNDOWlfO.2.26.2.21 :WINDO«#l .2.26.23,2 [7325] 
3:WINDOW#2.2e.39.2.24:WIND01»#3.2.26.22.22: 


tfIND0W#4,2,26,24,24 

5150 CLS«0:CLS#1:CLS#2 [605] 

5160 'Hilfe [481] 

5170 PRINT#2;PRINT*2.CHRS(24)" Befehle "CH [3246] 
R$(24):PRINT#2 

5180 PRINT#2."L Laden [1472] 

5190 PRINT#2."U UND [569] 

5200 PRINT#2,"0 ODER [648] 

5210 PRINT#2."XO EX-ODER [1055] 

5220 PRINT#2."N NICHT [396] 

5230 PRINT#2."S Setzen [1132] 

5240 PR1NT*2."R Ruecksz. : [2104] 

5250 PRINT#2."NOP Nullopr."; [1343] 

5260 PRINT#2."= Zuweisg."; [1530] 

5270 PRINT#2."PE Prg-Ende"; [2439] 

5280 PRINT#2,"NEU Loeschen"; [2104] 

5290 PRINT#2."ZL Zl-lsch.": [1382] 

5300 PRINT#2,"ZE Zl-einf." [2346] 

5310 PRINT#2,CHR$(24)” Operanden ■■CHR$(24) [2546] 
:PRINT#2 

5320 PRINT«2."E Eingang [1288] 

5330 PRINT#2."A Ausgang [864] 

5340 PRINT#2,''M Merker [1215] 

5350 PRINT#2."T Zeitglied"; [1285] 


Listing SPS 


5360 ’ [117] 

5370 ’ Eingabe [925] 

5380 ’ [117] 

5390 zeile=0;CALL &BB03 [1466] 

5400 anf=INT(zeile/20)»20:G0SUB 6670 [2479] 

5410 PEN 3:GOSUB 5420;PEN 0;GOTO 5470 [1551] 

5420 LOCATE 1,1+zeile MOD 20 [835] 

5430 LOCATE#!,1,1:F0R i=0 TO 1 [1767] 

5440 PRINT#ipUSING"###";zeile: [2301] 

5450 PRINTÄi," "bef$(zeile)" "opkS(zeile)o [4009] 
pp$(zeile)'* "bemS ( zei le) ; 

5460 NEXT:RETÜRN [940] 

5470 MlDS(befS.l,3)=bef$(zeile);MIDS(opkS. [4972] 
1.1)=opkS(zeile):MIDS(oppS,l,2)=oppS(zeile 
) : MIDS (benS ,1,13) =beiiS (zeile) 

5480 x=5:Mllf$(a$,l,l)="»":MIDS(b$,l.l)="«" [1906] 
5490 GOSUB 6980 [1045] 


5500 MID$(a$.l,l)="»":MID$(aS.l.l)=INKEY$: [2710] 
IF aS="*" THEN 5500 

5510 IF ASC(ä$)<58 AND ASC(a$)>47 OR a$=CH [4476] 
RS(242) THEN GOSCB 8130;IF b$=CHRS(127) TH 
EN 5410 ELSE 5400 

5520 IF aS=CHHS(252) THEN 6630 [1368] 

5530 IF a$="-” THEN MIDS(a$,1,1)="=" [1564] 

5540 IF aS="L" OR a$="U" OR aS="0" OR a$=" [7798] 
S” OR a$="R" OR a$="=" THEN MIDS(bef$,1,3) 

=a$ + " " :PRINT#1 ,a$ : : x=;s+l iGOSUB 6980:GOTO 

5930 

5550 IF aS="X" THEN MIDS(befS,1,3)="XO ":P [5133] 
RINT#l,aS"0";:x=x+2;GOSUB 690O:GOTO 5930 
5560 IF a$="P" AND zeile=ende THEN MID$(be [3316] 
f$,l,3)="PE ":GOTO 6030 

5570 IF a$="P" THEN 5880 [1192] 

5580 IF aS = "N'' THEN PRINT#1. a$ ; : x = x+l: GOSU [2821] 
B 6980;GOTO 5660 

5590 IF bSs"Z" THEN PRINT#1,a$;;x=x+l:GOSU [2631] 
B 6980:GOTO 5810 

Listing SPS 


ECHTE VORBILDER 


Setzen Sie sich mit einem wirklichkeitsnohen 
Roboter ouseinonder Programmieren und 
steuern Sie Arbeitsschritle und Bewegungen. 
Der .Troinings-Roboter'' ist eine dreiachsige 
Knickarm-Konstruiclion, genau wie echte In¬ 
dustrie-Roboter. Ein weiterer System-Bauko¬ 
sten von fischertechnik 
heißt. Plotter/Scon- 
ner". Der Plotter 
bringt Grohken ^ 
bis DIN A 4 zu / 


Papier, mit dem Scanner werden Vorlogen 
digital obgetastei. Beide Bouköstenentholten 
SoBwore und Progrommieronleilung. Zum 
Anschluß on die meisten Home- und Personal¬ 
computergibt es Interfoces von fischertechnik. 
Fordern Sie telefonisch ^ 




ausführliche Informationen 

über olle Boukästen von Rschertechnik Com 

puting an. 


Oder Coupon ousschneiden, auf eine Post- 
körte kleben [ Absendernicht vergessen I) und 
on untenstehende Adresse senden: 

Bitte schicken Sie mir Ihren Forbprospektüber 
fischertechnik Computing und einen Händler- 

_ PSI 10^ ^. 

fischerwerke, 7244 TumlingenAVoldochtol, 
Telefon 0 74 43/12-3 110 

fischertechnik 
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[~CAL 


, 1)=CHR$(127) 
THEN MIDS(be 


1 )=" 

, 1.1 


5600 IF a$ = CHR$(127) THEN MID$(b€.f$.1.3) = '- 
NOP" :MID$|opk$ . 1 . 1) = ” ;MID$(oppS. 1.2)=" 

•• ; MIDSI bemS .1.13) =SPACES ( 13 ) ;CLS#1 :PRINT*1 
. LTSING"###’'; Zeile : :PRINT#1 , " ••b6f$;;GOTO 6 
430 

5610 IF a$=CHR$(243) AND (bef$="N " OR be 
f$="NOP") THEN 6430 

5620 IF a$=CHR$( 243 ) AND befSO" ” AND b 

efS<>"PE " AND bef$<>"N0P" THEN 6050 

5630 IF a$=CHRS(240) AND zeile>0 THEN GOSU 

B 5420:zelle=zeile-1:G0T0 5410 

5640 IF a$=CHRS(241) AND zeile<ende THEN G 

OSUB 5420:zeile=zeile+l:G0T0 5410 

5650 IF a$=CHR$(13) AND (befSO" ” AND o 

pp$<>" ’• AND opk3<>" " OR bef5 = "N0P’' OR b 

ef$s"N '■) THEN 6570 

5660 GOTO 5500 

5670 ' 

5680 MID$(b$, 1 ,!)=•'«•■ :MrD$(bS , 1 ,1 ) = INKEY$ : 
IF b$=”»" THEN 5680 
5690 IF b$='’0" THEN M1 D$(b$.1 
:GOTO 5600 

5700 IF bS=CHRS(13) OR b$=" " 
fS . I , 3 ) =a$ + '' ‘^GOTO 6030 
5710 IF bS="E" THEN 5760 

5720 IF b$=CHH$|127) THEN MIDS{a$.1,1)=bS; 
GOTO 5600 

5730 IF bS=CHR${252) THEN 6630 
5740 GOTO 5680 
5750 ' 

5760 CLS#1:PRINT#1."Wirklich loeschen J/N 
■■ ; : x=0 :GOSUB 6980 

5770 MID$(b$.1,1)="«":MIDS(b$.1,1)=INKEY$; 
IF b$="*" THEN 5770 

5780 IF b$="J" THEN CLS#1:x=0:GOSUB 6980:M 
ID$(bef$(0) ,1.3)=" :MID$(opk$(0) , 1 

'• :MID$(oppS(0) .1,2) = " " :MID$(beiD$(0 

3)=SPACE$(13):ende=0:CLS:GOTO 5390 
5790 IF bS="N" THEN 5410 ELSE 5770 
5800 ' 

5810 MID$(b$.1.1)="*":MID$(b$,1.1)=INKEYS: 

IF b$="«" THEN 5810 

5820 IF b$=CHRS(127) THEN 5720 

5830 IF b$="L" AND ende>0 THEN GOSUB 6760: 

GOTO 5410 

5840 IF b$="E" AND ende<255 THEN GOSUB 688 
0:MID$(bef5(Zeile).1,3)="NOP":MID$(opkS(ze 
ile),l.l)=" ":MID$(opp$(zeile).1.2)=" ":M 

TD$(bemS(Zeile).1.13)=SPACE$(13):GOTO 5410 
5850 IF bS=CHRS<252) THEN 6630 
5860 GOTO 5810 
5870 ■ 

5880 CLS#l;PRINT#l,USING"###":zeile::PRINT 
«1, Wirklich PE - J/N" : : x=0 :GOSUB 6980 
5890 MID$(b$.1,1)="*";MID$(b$.1,l)=INKEYSi 
IF bS="«" THEN 5890 

5900 IF b$=”J" THEN ende= 2 eile:MIDS(bef$,1 
.3) = "PE •':CLS;anf = INT(zeile/20)»20:GOSUB 6 
670:GOTO 6030 

5910 IF b*="N" THEN 5410 ELSE 5890 
5920 • 

5 93 0 MID$(b$ , 1. l ) = •■•■•: MIDS (b$ , 1 ,1 )= INKEYS : 
IF b$="«" THEN 5930 
5940 IF b$=CHR$(252) THEN 6630 
5950 IF b$=CHR$(127) THEN 5720 
5960 IF b$=CHRS(13) AND befSO" 
pSO" " AND opkSO" " THEN 6570 
5970 IF b$<>"N" THEN 6030 

5980 IF b$="N" THEN PRINT#1.b$;;MIDS(befS, 
x-4.8-x) = "N MIDS (b$ . 1 , 1 )=••*": x=x+l :GOTO 
6030 

5990 GOTO 5930 
6000 ’ 

6010 'Operand Kennzeichen eingeben 
6020 • 

6030 PRINTSl.SPACES(9-x)::IF bef$="N " TH 
EN MIDS(opk$,l,l)=" ":MID$(opp$,1.2)=" ": 

PRINT#1." '^jGOTO 6430 

6040 IF bef$="PE " THEN MID$(opkS,1.1)=" " 
:MID$(opp$ .1,2)=" " ;MIDS(beinS, 1 ,13)=SPACE 

$(13):ende=zeile:GOTO 6570 
6050 x = 9 :MID$ (a$ , 1.1 )="»•• iGOSUB 6980:IF bS 
<>•'«" THEN IF ASC(b$)<90 THEN MID$(a$.l,l) 
=b$:GOTO 6070 

6060 MIDSiaS .1 , 1 ) = '■•" : MIDS ( aS . 1.1 ) = INKEYS : 


Listing SPS 


[8164] 

[2116] 

[3486] 

[3270] 

[4561] 

[2373] 

[ 367 ] 
[117] 
[3827] 

[22241 

[3424] 

[681] 

[2444] 

[591] 

[427] 

[117] 

[3616] 

[38571 

[7434] 


[1147] 

[117] 

[4000] 

[791] 

[3104] 

[8847] 


[591] 

[535] 

[117] 

[5634] 

[3984] 

[6056] 


I1274] 
[ 117] 
[4000] 


[591] 

[791] 

AND op [3668] 


[871] 

[5239] 


[535] 

1 117] 
[684] 
[117] 

{4344] 


[7580] 
[4041] 
[ 2567 ] 


IF aS="«" THEN 6060 

6070 IF a$="E" AND {LEFTS(bef$,1)="S" OR L [4272] 
EFT$(befS,l)="R" OR LEFTS(bef$.1)="=") THE 
N 6060 

6080 IF a$="E" OR a$="A" OR a$="M" OR a$=" [4287] 
T" THEN PRINT#1,a$;:MIDS(opkS,1,1)=aS;G0T0 
6190 

6090 IF a$=CHR$(240) AND zeile>0 OR b$=CHR [2238] 
$(241) AND zeile<ende THEN 5630 

6100 IF a$=CHR$(127) THEN 5600 [791] 

6110 IF a$=CHR$(252) THEN 6630 [1388] 

6120 IF b$=CHR$( 243) AND opkSO" " THEN 61 [1515] 
90 

6130 IF a$=CHR$(242) THEN 5480 [590] 

6140 IF a$=CHR$(13) AND opkSO" " AND oppS [3288] 
<>" " THEN 6570 

6150 GOTO 6060 [383] 

6160 • [117] 

6170 'Operand Parameter eingeben [1594] 

6180 • [117] 

6190 x=10:GOSUB 6980 [1262] 

6200 MrDS(a$.1.1)="*":MID$(a$,1,1)=INKEYS; [2555] 
IF a$="»" THEN 6200 

6210 IF aS=CHH$(13) AND MIDS(oppS.1,1)<>" [2216] 

" THEN 6570 

6220 IF aS=CHR$(127) THEN 5600 [791] 

6230 IF a$=CHR$(252) THEN 6630 [1388] 

6240 IF aS=CHR${240) AND zeile>0 OR aS=CHR [2238] 
$(241) AND zeileCende THEN 5630 

6250 IF a$=CHR$(243) AND MIDS(oppS,1.1)<>" [2192] 
'■ THEN 6200 

6260 IF a$=CHR$(242) THEN MIDS(b$.1,1)="*" [2327] 
:GOTO 6050 

6270 IF ASC(aS)<48 OR ASC(a$)>57 THEN 6200 [5108] 
ELSE PRINT#1.a$:MIDS(oppS.1,1}=a$ 

6280 x=ll:GOSUB 6980 [923] 

6290 MID$(b$.1.l)="*":HID$(bS,1,1)=INKEY$: [3777] 
IF b$="«" THEN 6290 

6300 IF b$=CHR$(127) THEN MIDS(a$.1,1)=b$: [2444] 
GOTO 5600 

6310 IF b$=CHR$(127) THEN 5720 [791] 

6320 IF bS=CHR$(252) THEN 6630 [591] 

6330 IF b$=CHRS(242) THEN 6190 [1270] 

6340 IF b$=CHR$(243) AND MIDS(oppS,2.1)<>" [1843] 

•• THEN 6430 

6350 IF b$=CHR$(240) AND zeile>0 OR bS=CHR [4956] 
$(241) AND zeile<ende THEN MIDS(a$,1.1)=b$ 

:GOTO 5630 

6360 IF bS=CHR$(13) AND MIDS{oppS.2.1)<>" [1653] 

" THEN 6570 

6370 IF b$=CHR$(13) AND MIDS(oppS,2.1)=" " [4738] 
THEN MIDS(oppS.1.2)="0"+MIDS(oppS.1.1):G0 
TO 6570 

6380 IF b$=CHR$(243) AND MIDS(oppS.2,1)=" [5151] 

" THEN MID$(oppS,1.2)="0"+MID$(opp$,1.1):L 
OCATEffl.10,1:PRINT#1,opp$;:GOTO 6430 
6390 IF ASC(bS)<40 OR ASC(bS)>57 THEN 6290 [4797] 
ELSE PRINT#1,bS:MIDS(oppS.2.1)=bS 
6400 • [117] 

6410 'Bemerkung eingeben [1455] 

6420 ' [117] 

6430 FOR x=13 TO 25 [1019] 

6440 GOSUB 6980 [1045] 

6450 MID$(aS,1,1)="o":MIDS(a$.1.1)=INKEY$ [3348] 

:IF aS="o" THEN 6450 

6460 IF a$=CHR$(127) THEN LOCATE#!.13.1:P [5935] 
RINT*1.SPACES(13);:MIDS(bemS,1.13)=SPACES( 

13):GOTO 6430 

6470 IF a$=CHR$(252) THEN 6630 [1388] 

6480 IF aS=CHRS(240) OR a$=CHR$(241) THEN [1563] 

5630 
6490 
S=”N 
6500 
6510 
6520 
6530 
0 

6540- MIDS(bein$ ,x-12 , 1 ) =a$ : LOCATE#! , x , 1 : PR [1294] 
INT#l.aS: 

6550 IF x=25 THEN 6450 [776] 

6560 NEXT [350] 

6570 x=0;GOSUB 6980:IF MIDS(oppS.2,1)=" " [6840] 

AND MID$(befS.l.l)<>"N" AND bef$<>"PE " TH 
EN MIDS(oppS.2,1)=MID$(oppS.1.1):MID$(oppS 


Listing SPS 


IF aS=CHR$(242) AND x=13 THEN IF bef [3556] 
" OR bef$="NOP" THEN 5480 ELSE 6280 
IF a$=CHR$(242) THEN x=x-2:GOTO 6560 
IF aS=CHRS(243) THEN 6550 
IF a$=CHR$(13) THEN x=25:GOTO 6560 
IF ASC(a$)<32 OR ASC{a$>>95 THEN 645 


[1451] 

[540] 

[584] 

[1614] 
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NEU: CPC-SONDERHEFT Nr. 5 

Das neue CPC-Sonderheft Nr. 5 ist jetzt erhältlich!! 

Power für Ihren CPCü Über 500 KByte leistungsstarke Software aus vielen 
Anwendungsbereichen bringen Ihren CPC auf Trab. 

Hier einige Kuiztnformatlonen aus dem Inhalt: 


Anvvendungen: 

Ua 

GBasic - ist das Tool 2 ui effektiven Grafikprogrammierung Die leistungsfähigen Eigenschaften von GBasIc schaffen Pro¬ 
grammierumgebungen, die sonst nur den absoluten Profis Vorbehalten sind 

Unilab - das universelle Programm zum Erstellen und Drucken von Etiketten Sonderfunktionen wie z 6 Unterstreichen am 
Sildschirm etc machen Unilab zu einem komfortablen Anwenderprogramm 

Spiele: 

Ua 

Quazuela - komplexes Spiel um Strategie und Macht Als Herrscher von Quazuela haben Sie alle Fäden in der Hand, um 
ihr Land zu Reichtum zu verhelfen oder gegen Ihre direkten Neider vorzugehen. Viele originelle Optionen machen dieses 
Spiel zu einem echten CPC*Hi|. 

Crazy Slamps - besticht durch eine völlig neue Spielidee Als Postbeamter haben Sie den Auftrag, Briefe mit dem entspre¬ 
chenden Porto zu versehen und abzustempeln Doch die Briefmarken spielen verrücktl 

Tennis Manager - Boris Becker läßt grüßen Sie übernehmen die Rolle des Managers eines Tennis-Stars und sind für den 
Geschäftsbetrieb verantwortlich 

Grundlegen' 

Soundprogrammierung für jedermann. Nach Lektüre dieses Artikels sind Sie in der Lage, ihrem CPC die herrlichsten Tone 
zu entlocken Ergänzend zu diesem Thema finden Sie unseren PSG-Sound-Programmer sowie den Envelope-Generator, die 
ihre Kompositionen wesentlich erleichtern 

Oiskettenwerkeuge im Überblick- Sie erfahren alles wichtige über Diskettenfools wie z B Kopierprogramme Eine große 
Marklübersicht zeigt Ihnen alle im Handel befindlichen Programme 

Tips&Tricks: 

U a 

Tonkopfjustage - nie wieder ‘Read error" Mit diesem Programm können Sie die Tonkopfjustierung ihres Kassetleniaufwerks 
vornehmen 

Disktool - komfortable Befehle für Vorfex-Anwender. 

Timeout - abdunkeln des Bildschirms nach längerer Arbeitspause Diese Funktion gibt es i d R nur aut QroBrechenan- 
lagen 

Turbo Pascal: 

Deluxe Data System - komfortable und universelle Oatelverwaltung Aut der Dalabox ist dieses Programm auch als COM- 
File enthalten, d h Sie können das Programm unter CP/M benuizeni 
Windows: Hilfe zum Erstellen von Texttenstern unter Turbo-Pascal 

Spieletips: 

Ob Action,- Baller- oder Abenleuerspiel, aus jedem Genre haben wir Interessante und nützliche Karten, Tips und Tricks zu- 
sammerrgeiragen. Z.B finden Sie eine komplette Karte zu Starquake, Tips zum Überleben bei Slargllder oder einen Leitfa¬ 
den für die ersten Missionen von Academy 

Alle Programme sind auch auf Datenträger erhältlich. 



Im Zeltschriftenhandel oder direkt beim DMV-Verlag, Eschwege. 


Weitere Sonderhefte im Verlag erhältlich 



Sonderheft 3/66: 

Reviews - Spiele - Anwenoungen - ein wahres Hit- 
Sammelsoiium Oirgt das CPC Sonflerhefl 1B6. 

Die Oeslen Spielprogramme m ÜbefOlick und viele Tips. 
Ldsungert und Karlen 2 u CoinpLitefspieten und Apenieu 
em. B^islern wird Sie auch der Rugsimulalor - etnecb- 
tei Leckerbissen /um Emdppen* Fantasy und Adveniure 
tieunöe werden sich über das erste Roiienspieiadveniure 
Monslergarien sicherlich genauso (reuwt, wie die 
Hardware Freunde über die Echlzeiluhr nun SelbsiDau 
Des weiteren giw es viele tolle Programme aus den Berei 
Chen Spiel ArMenoung und Ulitites sowie iundierte Berich¬ 
te lÄer d« efteMive inierruptprogrammierung Da ist tiif je 
den etwas dabei. Und natürlich Alle Programme sind auch 
auf Diskette oder Kassette erhältlich' 


Sonderheft 4/87 

Programmiersprachen - Anwendungen in Turbo-Pascal 
jnO mannigfallige Inlormabonen stehen im MittelpunÜ des 
4 CPC Sonderheftes Mil über 200 Seiten praller CPC 
Informationen, Tips und wetivüllen Programme das idea 
le Sammelsurium für jeden CPC-Anwender. Interessierf - 
dann sollten Sie sich schnell entscheiden, denn es sind nur 
noch wenige Restposten verlügbar. 



— Bitte Bestellkarte benutzen! — 



Bestellkarte ausfüllen und absenden an: 

DMV Daten- und Medien-Verlagsgesellschaft mbH 
Postfach 250 ■ Fuldaer Str. 6 

3440 Eschwege ■ Tel. (0 56 51) 87 02 



























r-CAL 


. 1.1) = " 0 " 



6580 MIDS(befS(zeile),1,3)=bef$:MIDS(opkS{ 

[7810] 


Zeile),1,1)=opk$;MIDS<oppS(zei1e).1.2)=opp 


S:MIDS(bem$(zelle),l,13}=bem$ 



6590 GOSUB 5420:IF BEF$<>"PE " THEN GOSUB 

[4171] 


5420;zeile=zeile+l 



6600 IF zeile>255 THEN zeila=255 

[1653] 


6610 IF zeile>ende THEN ende=zeile:MIDS(be 

[7976] 


f$(zeile) , 1 .3) = " ":MIDS(opk$(Zeile) ,1.1) 



= ■■ ; MIDS (oppS( Zeile) .1.2)=" " : MID$(bemS( 



Zeile),1.13)=SPACE$(13) 



6620 GOTO 5410 

[361] 


6630 MIDS (befS (ende) , 1 , 3 ) = "PE '•:GOTO 7040 

[1337] 


6640 ■ 

r 1171 


bbOU betehisliste anzeigen 

[2653] 


6660 ’ 

(1171 


6670 FOR i=anf TO anf+19 

i 1754] 


6680 LOCATE 1,1+i-anf 

[1546] 


6690 IF i>ende THEN PRINT SPACES(25);:i=a 

[4082 j 


nf+19:GOTO 6720 



6700 PRINT USING"###":i; 

[779] 


6710 PRINT " "befS(i)" "opkS(i)oppS(i)" ” 

[2331] 


bemS(i): 



6720 NEXT:CALL 4BB03:RETURN 

[1304] 


6730 ’ 

[117] 


6740 ’ Befehl loeschen 

[1964] 


6750 • 

[117] 


6760 CLS#l:x=0:GOSUB 6980:PRINTSl." ZL - B 

[3089] 


itte warten -.."; 



6770 ende=ende-l:FOR i=zeile TO ende 

[950] 


6780 MIDS(bef$(i).1.3)=befS(i+l) 

[1323] 


6790 MID${opk$(i).l.l)=opk$(i+l) 

[1650] 


6800 MIDS(oppS(i).l,2)=oppS(i+l) 

[1059] 


6810 MIDS(bem$(i ) . 1 .13 ) =beinS( i + 1) 

[1774] 


6820 NEXT:anf=INT(zeile/20)«20:GOSUB 6670 

[1609] 


6030 IF ende<zeile THEN zeile=ende 

[1415] 


6840 RETURN 

[555] 


6850 ' 

[117] 


6860 ' Befehl einfuegen 

[2514] 


6870 • 

M 1 7 1 


6880 CLS#l:x=0;GOSUB 6980:PRINT#1," ZE - B 

[4150] 


itte warten ..." : 



6890 ende=ende+l:FOR i=ende TO zeile+1 STE 

[1094] 


P -1 



6900 MIDS(bef£(l).1,3)=befS{i-l) 

[1443] 


6910 MIDS(opkS(i>,1.1)sopkS(i-l) 

[1801] 


6920 MIDS(opp$(i>,1.2)=opp$|i- 1 ) 

[955] 


6930 MID${beDi$ ( i ) , 1,13 ) =bemS (i-1 > 

[1580] 


6940 NEXT:MIDS(bef$(zeile),1.3)="NOP";MIDS 

[8781] 


(opk$(Zeile),1.1)=" ”:MIDS(oppS(zeile).1,2 



)=■• ;MID$(bem$( Zeile) , 1.13 ) =SPACES( 13) :e 



nf=INT(zeile/20)*20:GOSUB 6670;RETURN 



6350 ' 

[117] 


6960 ' Cursor setzen 

[660] 


6970 ' 

[117] 


6980 IF xaOO THEN LOCATE#3 , xa , 1; PRINT#3 , C 

[5758] 


HRS(131);:LOCATE#4,xa,1;PRINT#4.CHRS(140); 



6990 IF xOO THEN LOCATE#3 , x. 1 : PR1NT#3 , CHR 

[5635] 


S(254): ;LOCATE#4,x,1:PRINT#4.CHRS(253); : LO 



CATE#l.x,l ELSE LOCATE#!.1.1 



7000 xa=x:RETURN 

[1515] 


7010 • 

[117] 


7020 ' Quellprogramm in Haschinencode uebe 

[1984] 


rsetzen 



7030 • 

[117] 


7040 xadr = xniadr :CLS#1: x=0 :GOSUB 6980:CLS:P 

[4513] 


OKE xadr,4F3:xadr=xadr+1:esflag=0 



7050 LOCATE 2,3:PRINT”Haschinencode-Generi 

[3913] 


erung 



7060 LOCATE 2.5:PRINT"Zeile: 

[1801] 


7070 LOCATE 2,8 .■PRINT"Bitte warten . . . 

[2977] 


7080 FOR zl=0 TO ende:LOCATE 9.5:PHINT zl 

[1958] 


7090 MIDS(bef$,l,3)=bef$(zl):MIDS(cS.l.l) 

[6419] 


sMIDS(befS.2,l):IF c$="0" THEN MIDS(c$.l.l 



)=MIDS(befS.3,l) 



7100 IF befSs" " OR befS = ‘’NOP" THEN 725 

[2620] 


0 ELSE MIDS(bS.l,l)=MlDS(b6fS,l,l) 



7110 s=VAL(opp$ (zD).• MIDS (a$.1.1 )=opkS (zl 

[2125] 


7120 IF a$="E" THEN s=s+xe00 

[851] 


7130 IF aS="A" THEN s=s+xa00 

[1448 ] 


7140 IF qS="M" THEN s=s+xm00 

[755] 


7150 IF a$ = "T'‘ AND (bS = "S” OR b$ = "R" OR b 

[2174] 


S="=") THEN s=s+xtOOa:GOTO 7170 



7160 IF a$="T" THEN s=s+xt00e 

[1777] 


Lisdng SPS 




7170 

7190 

7190 

360 

7200 

7310 

7210 

7220 

7230 

7240 


hb=INT(s/256);lb=s-256*hb 
IF b$="L" THEN 7300 

IF bS=”U" OR bS="0” OR b$="X" THEN 7 


IF b$ = "N'' THEN MIDS(C$. 1.1) = '‘N" :GOTO 


IF b$="S" 
IF bS = ’'R" 
IF b$=”=” 
IF bS = ’‘P" 


THEN 7450 
THEN 7540 
THEN 7630 

THEN POKE xadr.&FB:POKE xa 


dr +1 , &C9 : xadr~xadr-t-2 


7250 IF esflag THEN RETURN 
7260 NEXT:POKE xadr . 4FB: POKE xadr + 1. Ä,C9 ; MO 
DE 1:INK 0.1:INK 1,24:INK 2.0:INK 3,26:PAP 
ER 0:PEN IrBORDER 0:RETURN 
7270 ’ 

7280 ’L & LN - N 
7290 ■ 

7300 POKE xadr,Ä3A:POKE xadr+1.Ib:POKE xad 
r+2,hb:xadr=xadr+3 

7310 IF c5="N" THEN POKE xadr,AEE:POKE xad 
r+1.1:xadr=xadr+2 


7320 GOTO 7250 
7330 ’ 

7340 ’U 4 UN - 0 4 ON - XO 4 XON 

7350 ■ 

7360 POKE xadr.447:POKE xadr+1.43A:POKE xa 
dr+2,Ib;POKE xadr + 3,hb;xadr = xadr + 4 


7370 IF c$="N" THEN POKE xadr.4EE:POKE xad 
r+1,1:xadr=xadr+2 


7380 IF b$="U" THEN POKE xadr.AAO 
7390 IF b$="0" THEN POKE xadr.ABO 
7400 IF b$="X" THEN POKE xadr.AAG 
7410 xadr=xadr+l:GOTO 7250 
7420 • 

7430 'S 4 SN 
7440 • 

7450 IF c$="N" THEN POKE xadr,4EE:POKE xad 


r+l,l;xadr=XBdr+2 

7460 POKE xadr.447:POKE xadr+1,43A:POKE xa 
dr+2.1b:POKE xadr+3.hb:POKE xadr+4,4B0 


7470 POKE xadr+5.432:POKE xadr+6,Ib:POKE x 
adr+7,hb;POKE xadr+8.478 


7460 xadr=xadr+9 

7490 IF cS = '‘N" THEN POKE xadr .4EE: POKE xad 


r + 1.1:xadr = xadr+2 
7500 GOTO 7250 
7510 ’ 

7520 ’R 4 RN 
7530 • 

7540 IF cS = " ■■ THEN POKE xadr .4EE:POKE xad 
r+l,l:xadr=xadr+2 

7550 POKE xadr,447:POKE xadr+1.43A:POKE xa 
dr+2,lb:POKE xadr+3,hb;POKE xadr+4,4A0 
7560 POKE xadr+5,432;POKE xadr+6.Ib;POKE x 
adr+7,hb:POKE xadr+e,478 
7570 xadr=xadr+9 

7 580 IF c$ = " ■■ THEN POKE xadr. 4EE; POKE xad 
r+1,1;xadr=xadr+2 
7590 GOTO 7250 
7600 ■ 

7610 ■= 4 =N 
7620 ■ 

7630 IF c$="N" THEN POKE xadr.4EE;POKE xad 
r+1,1:xadr=xadr+2 

7640 POKE xadr.432:POKE xadr+1,Ib:POKE xad 
r+ 2.hb:xad r = xadr+ 3 

7650 IF c$="N" THEN POKE xadr.4EE:POKE xad 
r+1.1:xadr=xedr+2 
7660 GOTO 7250 
7670 ’ 

7680 'SPS-Programme speichern 
7690 • 


7700 MODE 1:PRINT'’SPS-PrograiDin auf Diskett 
e/Kassette”:PRINT"abspeichern. 

7710 PRINT:PHINT"Bestaetigan mit J/N 

7720 IF INKEY(45)=0 THEN 7740 

7730 IF INKEY(46)s0 THEN RETURN ELSE 7720 

7740 PRINTrCALL 4BB03:GOSUB 8290:PRINT:PBI 

NT;PRINT"Bitte warten ...":PRINT:PRINT 

77 50 zan::dlaenge$ : xan = 256*PEEK(xan+2) +PEEK 

(xan+1):MIDS(laengeS.1,1)=CHR$(ende) 

7760 xen=xan+19*(ende+l):IF MIDS(datenS,1. 
8)="SPS-allg' THEN xen=xen+290:FOR 1=0 TO 
4:MID$(ZEITS,1+1.1)=CHR$(z(i)>:NEXT:MID$(Z 


üsting SPS’ 


[1652] 

[707] 

[1819] 

[2762] 

[402] 

[527] 

[506] 

[3696] 

[771] 

[7770] 


[117] 

[103] 

[117] 

[2890] 

[2913] 

[313] 

[117] 

[2084] 

[117] 

[3349] 

[2913] 

[ 935 ] 

[1406] 

[1154] 

[373] 

[117] 

[155] 

[117] 

[2913] 

[3762] 

[4182] 

[396] 

[2913] 

[313] 

[117] 

[514] 

[117] 

[3335] 

[3812] 

[4182] 

[396] 

[3335] 

[313] 

[117] 

[303] 

[117] 

[2913] 

[4000] 

[2913] 

[313] 

[117] 

[2534] 

[117] 

[5721] 

[1900] 

[1006] 

[982] 

[3535] 

[4875] 

[11500] 
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EIT$.6.1)=CHR$(EING):MIDS(ZEITS.7,1)=CHR$( 

AUSG):M1D$(ZEIT$. 8 ,1)=CHRS(ZEITG) 

7770 SAVE datenS.b,xan.xen-xan+1 [2063] 

7780 RETURN [ 555 ] 

7790 ’ [117] 

7800 'SPS Programme einiesen [1641] 

7810 ' [117] 

7820 MODE 1:IF ende=0 THEN 7860 ELSE PRINT [9442] 

ACHTUNG !":PRINT"Das SPS Progratom im Rech 
ner vf i rd PR I NT "ueber schrieben. 

7830 PRINT:PRINT"Wirklich einiesen J/N [2456] 
7840 IF INKEY(45)=0 THEN 7860 [1030] 


7850 IF INKEY|46)=0 THEN RETURN ELSE 7840 [1022] 

7860 PRINT:CALL 4BB03:GOSUB 8290;PRINT;PRI [3494] 
NT :PRINT"Bitte warten ... 

7870 PRINT:PRINT:PRINT"Bei Fehlermeldung - [6385] 
";PRINT"Warmstart mit GOTO 1100":PRINT:PRI 
NT 

7880 X8n=@laenge$;xan= 256»PEEK(xan+2)+PEEK [2510] 
(xan + 1 ) 

7890 HB=PEEK(&AE7C):POKE &AE7C,100:•HIMEM [4173] 
herabsetzen (ohne Garbage Collection) 


7900 LOAD datenS.xan [541] 

7910 POKE &AE7C.HB [796] 

7920 IF MIDS(daten$,1, 8 ) = "SPS-allg" THEN F [9439] 
OR i =0 TO 4;z(i)=ASC(MID$(ZEITS.I+l. 1 )):NE 
XT:EINGsASC(MIDS(ZEITS.6.1)):AUSG=ASC(M1D$ 

(ZEITS.7.1));ZEITG=ASC(MIDS(ZEITS,8.1)) 

7930 ende=ASC(laengeS) [1133] 

7940 POKE xtoadr .&C9: IF ende>0 THEN 7040 EL [2557] 
SE RETURN 

7950 ■ [117] 

7960 'SPS-Programm ausdruclien [1908] 

7970 ■ [117] 


7980 IF (INP(&F500) AND 64)=64 THEN MODE 1 [12474] 
iLOCATE 10.12:PRINT CHR$(7)"Der Drucker is 
t”:LOCATE 10.14;PRINT"nicht betriebsbereit 
.":FOR i=0 TO 2000:NEXT:BETURN 

7990 MODE 1:LOCATE 7,7:PRINT"Ausdruck des [3466] 
Que11 Programms 


8000 LOCATE 1.13;PRINT"Ueberschrift:";LOCA [4216] 
TE 1,16:LINE INPUT"".textS 

8010 IF textS="" THEN 8000 [1289] 

8020 PRINT#8.SPC(9)text$:PRINT#8 [2826] 

8030 FOR i=0 TO ende [660] 

8040 PRINT#8.SPC(9) ; : PRINT#8 . USING •'###"; i [3551] 
;:PHINT#8." ” ; 

8050 PRINT#8,USING’-\ \":bef$(i): [2477] 

8060 PRINT#a .opkSd ) ; [1835] 

8070 PRINT#8,USING"\ \“!oppS(i): [2833] 

8080 PRlNTSS.bemSd) [818] 

8090 NEXT:RETURN [940] 

8100 • [117] 

8110 'Neue Zeile festlegen [1122] 

8120 ' [117] 

8130 CLS*1 :PRINT#1. Zu Zeile: •■;:MID$(n [7698] 
r$.l,3) = " ’MF a$=CHR$(242) THEN x=14:z = 

0 ELSE x=15;z=l:MID$(nrS.1.1)=B$:PRINT#1,a 
S ; 

8140 GOSUB 6900 [1045] 

8150 MID$(b$,l.l)="«":MlD$|b$.l,l)=INKEYS: [4004] 
IF bSr"*" THEN 8150 

8160 IF b$=CHRS(13) THEN 8240 [921] 

8170 IF bS=CHR$d27) THEN RETURN [895] 


8180 IF bS=CHB$(242) AND z>0 THEN z = z-l:ii= [2651 ] 
x-l:GOSUB 6980:GOTO 8150 

0190 IF b$sCHR$(243) AND z<2 AND MID$(nrS. [6147] 
z + l.DO" ■■ THEN z = z + l :x=x+l :G0SUB 6980:GO 


TO 8150 

8200 IF ASC(bS)<48 OR ASC(b$)>57 THEN 8150 [1861] 
8210 PRINT#1.b$::x=x+l:GOSUB 6980 [1413] 

8220 z= 2 +l:MIDS(nrS,z.l)=bS [1398] 

8230 IF z=3 THEN 8240 ELSE 8150 [1998] 

8240 PEN#1.1:GOSUB 5420:PEN#1.3:zeile=VAL( [6707] 
nrS);IF zeile>ende THEN zeile=ende 
8250 x=0:GOSUB 6980;RETURN [1569] 

8260 • [117] 

8270 ' Datenfi1e-Nr [ 1454] 

8280 ' [117] 

8290 PRINT:PRINT [743] 

8300 INPUT"Datenfile (1 .. 999) Nr: ”.nr [1955] 
8310 IF nr<l OR nr >999 THEN 8300 [1386] 

8320 x=LEN(STR$(nr));MIDS(daten$.10.1)="0" [7029] 
:MID$(daten$.13-x,x)sSTR$(nr):MIDS{datenS, 

13-x. 1) = "0": MIDS (datenS. 9.1 ) = ■•." 

8330 RETURN [555] 


Listing SPS 


Lauter 

Anwendungsprogramme 


ETATGRAF 

Das Haushaltsbuch mit Grafik 

Verwalten Sie Ihre Ausgaben mit dem Computer. 

Die grafischen Auswertungsmögiichkeiten verschaffen Ihnen je¬ 
derzeit einen guten Gesamtüberblick, 
o bis zu 18 verschiedene Kostenarten 
o Bearbeitung von 12 Monaten 
o Tabellen, Balkengrafik 

o für Joyce oder CPC nur 58, - DM 


COMFORM 

Druckprogramm für Überweisungsformuiare 
o für Joyce oder CPC nur 48,- DM 


FIBUCOMPvS.O 

Finanzbuchführung mit Grafik 

Mit diesem Programm können Sie eine Menge Arbeit sparen. 
Nachdem Sie Ihren Kontenplan mit bis zu 60 Konten erstellt ha¬ 
ben, können Sie bereits mit den Buchungen beginnen. Das lä¬ 
stige Addieren der Kontensalden wird vom Programm erledigt. 
Ebenso kann jederzeit eine Art Saldenbilanz auf dem Monitor, 
Drucker oder als Grafik dargestellt werden. Weitere Leistungs¬ 
merkmale: 

o komplette Kontenplananzeige am Monitor 
o bis zu 4-stellige Kontennummern 
O Ausdruck von Grundbuch und Kontenblättern 
o einfache oder doppelte Buchführung 
o automatische Kontostandberechnung 
O incl. deutscher Anleitung 

O 3“ Disk für CPC 464/664/6128 nur 98, - DM 


PROFIREM 

Rechnungen/Lager/Adressen 

Ein komfortables Programm zum Schreiben von Rechnungen, 
Lieferscheinen, Angeboten etc. Lager- und Adressenverwaltung 
sind in diesem Programmpaket bereits enthalten. 

o für Joyce oder CPC nur 136. - DM 


TEXTKING 

Die praktische Textverarbeitung 
O Cursorgesteuerte Bedienung 
o Floskeltasten für häufig benutzte Wörter 
o Suchen und Ersetzen von Wörtern 
o umfangreiche Schriftgestaltung 
o fertige Druckformulare 

O integrierte Diskettenverwaltung mit Ausdruck des 
Diskettenverzeichnisses 
O ausführliche Anleitung 

o 3“ Diskette für CPC nur 78, - DM 


TOS3 ©SIS 

Programm-Entwicklung und Vertrieb 
Elfriede van der Zaim 
Schieferstätte, 2949 Wangerland 3 
Telefon (04461) 5524 

Versand erfolgt per Vorkasse (portofrei), Nachnahme (zzgl. 5,- DM) 
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Disk Professor 

Hersteller: Tröps Computertechnik 
Autor: Stefan Conrad 
Programm: 100% M-Code 
Steuerung: Tastatur/Joystick 
Bildschirm: Farbe/Grün 

CPC 464 K 

Die Firma Computertechnik Tröps aus 
Brühl, hat in Ihre Produktpalette nun 
auch Programme für den Schneider 
CPC aufgenommen. Das erste Pro¬ 
gramm dieser Firma ist auf dem 
Schneider CPC 464 lauffahig und 
nennt sich »Disk-Professor«. 

Nomen est Omen, es handelt sich hier¬ 
bei um einen erweiterten Disketten 
Monitor. Dieses Programm-Tool weist 
einige Besonderheiten auf: 

— Grafikeditor 

— Directoryeditor 

— akzeptiert Fremdformate 

— Filcoptionen 

— Hardcopyroutine 

Das Programm ist vollständig in As¬ 
sembler geschrieben. Auf Seite B der 3 
Zoll Diskette befindet sich ein Installa¬ 
tionsprogramm, mit dem der Benutzer 
die Rahmen-, Hintergrund- und 
Schriftfarbe, sowie den Mauszeiger 
variieren kann. 

Disk Professor verfugt über eine For¬ 
matierroutine, bei der zwischen den 
Formaten 

— Vendor 

— Data 

— System 

gewählt werden kann. Es werden im¬ 
mer 42 Tracks formatiert. 

Des Weiteren besitzt das Programm ei¬ 
nen Directory-Editor. So heißt es in der 
Anleitung: »Diese Funktion schöpft die 
Möglichkeit des Inhaltsverzeichnisses 
unter CP/M oder AMSDOS voll aus«. 
Tatsächlich kann der Anwender durch 
das Kommando »Era« gelöschte Datei¬ 
en fast immer retten. Der File kann 
wahlweise auf »Read« oder »Write« ge¬ 
setzt werden, auch kann die ausge- 
wählte Datei als »Sys-File« gesetzt 
werden, beziehungsweise als »Dir- 
File«. 


Der »Professor« hat einen eingebauten 
HEX-Editor. Ähnlich wie beim Editor 
des Programmes »Maxam« kann man 
hier über die Tastatur oder über HEX- 
Werte einzelne Bytes auf der Diskette 
verändern. 

Eine Routine im Programm die mir bis¬ 
her noch unbekannt war, stellt der Gra¬ 
phikmonitor dar. Mit diesem Pro¬ 
grammteil werden Bilder oder Shapes, 
die sich auf der Diskette befinden, auf 
den Monitor übertragen. 

Eine eingebaute Hardcopyroutine er¬ 
laubt dem Anwender sogar einzelne 
Bilder auszudrucken. 

Ebenso kann der Bildschirminhalt über 
einige Tastenkombinationen gescrollt, 
sowie das Darstellungsformat verbrei¬ 
tert oder verkürzt werden. Mit der 
Funktion »Save« wird der Bildschirm 
auf dem aktuellen Track gespeichert. 
Eine hilfreiche Routine für den Gra¬ 
phik-Freak. 

Die Anleitung zum Disk-Professor 
sollte vom Programmierer noch einmal 
überarbeitet werden. Das im Schnell¬ 
druck hergestellte zehn-seitige Heft¬ 
chen — es gehen bereits drei Seiten für 
Copyrightvermerk und Inhaltsver¬ 
zeichnis drauf — läßt für den leidge¬ 
prüften Anfänger wenig übrig. 


NuUeNftkl Doku- Qralik ArOeÜk* Preis/ 

rrevndiiohKeii meniallon geachwindiO' Ldslung 



Das Programm ist zur Zeit nur unter 
Amsdos auf dem Schneider CPC 464 
lauffähig, es sollen, so der Hersteller, 
demnächst auch für die anderen 
Schneider Rechner Versionen auf den 
Markt gebracht werden. 

Der Disk-Professor ist sicherlich keine 
aufregende Neuerscheinung auf dem 
ohnehin schon übersättigten Schneider 
CPC-Softwaremarkt. 

Mit dem Programm läßt sich aber nach 
einer gewissen Eingewöhnungszeit gut 
arbeiten. Ein Tool das für alle Disket¬ 
tenbenutzer brauchbar ist. 

(Christian Eißner) 


Fast 

Autor: Peter Hopfner 

Vertrieb: Detlef Gunkel 

Monitor: Farbe/Grün 

System: CPC 464/664 mit Vortex 

Speichererweiterung und 62K CP/M 

oder CPC 6128 mit CP/M-h 

Preis: 49,— DM (Vortex 5.25“) 

55,- DM (Schneiders“) 

CPC 464 XI CPC 664 XI CPC 664 X 

Jeder, der schon mal ernsthaft mit 
CP/M (+) arbeiten wollte, wird sich 
irgendwann über die langsame Zei¬ 
chenausgabe geärgert haben, denn 
durch diese wird das professionelle Ar¬ 
beiten nicht gerade erleichtert. 

Das Programm FAST beseitigt diesen 
Mißstand; es wird wahlweise auf 5.25 
Zoll Diskette für Vortex oder auf 3 Zoll 
Disk für Schneider-Floppies mit einem 
Handbüchlein geliefert. 

FAST (was ja auf Englisch »schnell« 
heißt), macht seinem Namen alle Ehre, 
denn es verschnellert die Bildschirm¬ 
ausgabe unter CP/M um den Faktor 5 
(laut Handbuch). Dadurch kann man 
nun richtig professionell arbeiten, da 
die quälend langsame Original-Ausga¬ 
beroutine nun nicht mehr benutzt wer¬ 
den muß. Wer meint, daß die von Vor¬ 
tex bereits eingebaute Schnellausgabe 
doch reiche, sollte sich einmal FAST 
ansehen, um zu merken, wieviel Zeit 
man dann damit sparen kann. 

Und man spart nicht nur Zeit,sondern 
bekommt zusätzlich den deutschen Zei¬ 
chensatz, der ja eigentlich sowieso bei 
jedem Computer in Deutschland dabei 
sein sollte. Aber leider wird die Tasta¬ 
tur nicht DIN-gemäß umgestaltet (Z 
und Y müssen z.B. dafür vertauscht 
werden, etc.). Eine »echte deutsche« 
Tastaturbelegung gibt es also nicht, 
sondern »nur« die Sonderzeichen. 

Wer sich mit dem DEC-Terminal 
VT52 auskennt, wird die VT52-Emu- 
lation zu schätzen wissen, die nach La¬ 
den von FAST mit CTRL D V ange¬ 
stellt werden kann. Da die emulierten 
VT52-Steuerzeichen eine Untermenge 
der CP/M-H Steuerzeichen darstellen, 
kann dann auch von einer Emulation 
der gängigen CP/M-h Steuerzeichen 
gesprochen werden. 

Unabhängig von der VT52 Emulation 
stellt FAST zwei zusätzliche Steuerco¬ 
des zur Verfügung, die eine ganze Zei¬ 
le löschen bzw. einfügen und so viele 
Textverarbeitungsprogramme schnel¬ 
ler machen können. Da die Textpro- 


90 PC 10’87 
























































Software-Review~] 


gramme diese Codes natürlich nicht 
kennen, müssen sie erst in diese einge¬ 
fügt werden. Wie das geht (und ob 
überhaupt), sollte im Handbuch Ihrer 
Textverarbeitung stehen. 

All die Leistungen, die FAST dem An¬ 
wender bietet, werden durch folgende 
Einschränkungen erkauft: Zeichen 
können nicht an Grafik- Positionen aus¬ 
gegeben werden, der Grafikstiftmodus 
kann nicht gesetzt werden, der Vortex 
EMUD-Patch kann nicht benutzt wer¬ 
den und die frei definierbaren Zeichen¬ 
sätze (s.u.) können nicht an den 
Drucker gesendet werden (obwohl es 
bei den neuen Druckern mit frei defi¬ 
nierbarem Zeichensatz gehen kann!). 
Wie schwer diese Einschränkungen 
wiegen,muß jeder selbst ermitteln, 
denn wer z.B. unter CP/M Textverar¬ 
beitung und Kalkulation betreibt, wird 
zumindest die Grafikroutinen nicht 
vermissen.Gerade diese kann aber der 
Benutzer der Turbo Pascal Grafiker¬ 
weiterung gebrauchen; er muß sie dann 
(laut Handbuch) durch INLINE er¬ 
setzen. 

Insgesamt können diese Einschränkun¬ 
gen den Nutzen von FAST aber kaum 
schmälern — wer schon immer eine 
schnellere Zeichenausgabe unter 
CP/M haben wollte, ist hier goldrich¬ 
tig. Dadurch, daß keines der Program¬ 
me auf der FAST-Diskette kopierge¬ 
schützt ist, kann man sich das Pro¬ 
gramm FAST.COM auf jede Disk ko¬ 
pieren und hat dann immer sofort die 
Schnellausgabe zur Hand. 

Weil FAST den Zeichensatz aus Ge¬ 
schwindigkeitsgründen im RAM hält, 
ist es auch leicht möglich,diesen zu 
verändern. 

Dies macht das Programm SETFONT, 
das einen der 12 mitgelieferten Zei¬ 
chensätze lädt und als ersten oder zwei¬ 
ten Zeichensatz initialisiert. Man kann 
also zwei Zeichensätze ira RAM ha- 
, ben, zwischen denen mit »A« 
(SIHFT-I-Ö) umgeschaltet werden 
kann, nachdem CTRL D Z eingegeben 
wurde. Unter den Zeichensätzen befin¬ 
det sich eine »Computerschrift«, eine 
( Schreib-, eine Schmal-, eine Flach- 
* Schrift, »Antik« und einige mehr. 

■f Wer also Abwechslung bei den Zei- 
'• eben mag,ist mit SETFONT gut be¬ 
ll dient. Im gut strukturierten Handbuch 
I wird der Aufbau dieser Zeichensätze 
,) beschrieben, so daß man sich auch sel- 
I, ber neue erstellen kann,indem man die 

Zeichen z.B. in BASIC neu definiert 
und dann die im Handbuch beschriebe¬ 
nen Manipulationen vomimmt. 
Schließlich gibt es noch das Programm 
MORE, das eine Verbesserung des 


Original-CP/M Programms TYPE ist. 
So werden als Steuerzeichen nur noch 
TAB und CR (Absatz) ausgegeben, al¬ 
les weitere wird unterdrückt. Dies ver¬ 
meidet, daß man sich beim TYPEn 
z.B. plötzlich in MODE 1 mit Invcrs- 
schrift befindet, weil die CPC-Print- 
routine die Steuerzeichen der Textver¬ 
arbeitung so ausgelegt hat. Außerdem 
wird das Listen alle 23 Zeilen angehal¬ 
ten und auf einen Tastendruck gewar¬ 
tet; mit CTRL C kann die Ausgabe un¬ 
terbrochen werden. 

Das Handbuch beschreibt die Schritte 
zur Installation und Benutzung der Pro¬ 
gramme gut und übersichtlich. Aller¬ 
dings wird dort ein CPC 464/664 mit 
Vortex-Speichererweiterung als Hard- 
warevoraussetzimg genannt; auf der 
Preisliste und dem Infoblatt steht je¬ 
doch auch FAST 6128 zum selben 
Preis. Umjeglicher Verwirrung vorzu¬ 
beugen sollte also bei der Bestellung 
der Computertyp mit angegeben wer¬ 
den (dieser Test bezieht sich auf FAST 
für den 464/664 mit Vortex Speicherer¬ 
weiterung). 

Positiv ist auch, daß der Hersteller bei 
Problemen angerufen werden kann. 
Immer dienstags von 18 bis 22 Uhr 
kann man an der »User Hotline« seine 
Probleme (auch allgemein Fragen zum 
CPC) schildern und Hilfe bekommen. 

NuU^tfelrt B«dl8r>un99> Doku- tacalik A/beÜts- Fmaf 

Irsundichkeit menlaiton gseehwlndlg- Leistung 

Keil 



Fazit: 

Durch FAST kann dem professionellen 
Anwender, der sich schon immer über 
die langsame CP/M-Zeichenausgabe 
geärgert hat ein für allemal geholfen 
werden,denn die neue Zeichenausgabe 
ist endlich schnell genug. Die zusätzli¬ 
chen Programme SETFONT und 
MORE sind ganz nützlich, aber beson¬ 
ders SETFONT scheint mir mehr eine 
Spielerei (wenn auch eine gute) zu 
sein. (Die Bewertung bei »Grafik« be¬ 
zieht sich nur auf die mitgelieferten 
Zeichensätze!) Der Hersteller-Support 
auch nach dem Kauf und der fehlende 
Kopierschutz kommen dem Endan¬ 
wender sehr zugute; bei dem Preis von 
ca. 50,— DM sollte man nicht zum 
Software-Dieb werden müssen, um das 
Programm zu benutzen! 

(Jan Mirko Maczewski) 



Mask 

Hersteller: Gremlin Graphics 
Vertrieb: Fachhandel 
Monitor: Farbe / Grün 
Steuerung: Joystick / Tastatur 
Preis: ca 35,- DM 

CPC 464 Kl CPC 664 K CPC 6128 K 

Die Masters of the Universe waren ein 
kleines Meisterstück der multimedia¬ 
len Verwertung einer durch und durch 
lauen Idee. Die martialisch anzuschau¬ 
enden Figürchen, die kleinen Jungs als 
Barbic Equivalent dienen sollen, erleb¬ 
ten inzwischen ihr Debüt als Comics, 
Computerspielc, Fernsehserien und 
nun auch als Kinofilm. 

Die Masters waren die ersten, aber 
durchaus nicht die einzigen die diesem 
Weg folgten. Der britische Spielwa¬ 
renhersteller Parker mochte dem Er¬ 
folg, den das Konkurrenzunternehmen 
Matell mit seinen Masters verbuchen 
konnte, nicht tatenlos Zusehen. Fix war 
man mit einem mindestens ebenso 
hirnlosen wie klischeehaften Plot bei 
der Hand und wenig später rollten die 
ersten Figürchen der Mask Serie über 
das Produktionsband. Der Erfolg sol¬ 
cher Figurenserien und der darum her¬ 
um konzipierten Geschichten scheint 
vorprogrammiert zu sein. 

Und als sich diese These auch bei 
Maskl als zutreffend erwies, dauerte 
es nicht lange und ein zur Serie passen¬ 
des Computerspiel wurde geschrieben. 
Im Wesentlichen rankt sich die Story, 
die Mask zugrunde liegt, um eine Ge¬ 
heimorganisation von einigen guten 
Bubis die sich permanent mit einer Ge¬ 
heimorganisation von bösen Bubis in 
den Haaren liegt. Die guten Jungs tra¬ 
gen alle Masken, daher auch der Name 
des Geheimbundes, »MASK«. 

Die Feinde der Maskenträger sind die 
Agenten von Vernom, denen nichts lie¬ 
ber wäre als alle Agenten von Mask auf 
den Mond zu schießen. Mittels einer 
neuen Waffe, einer Zeitbombe, geden¬ 
ken nun die Vernom Übeltäter allen 
Mask Agenten den Garaus zu machen. 
Diese Zeitbombe ist nicht etwa das alt¬ 
bekannte Patent einer Timer gezünde¬ 
ten Sprengladung, sondern ein Dimen- 
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Ein wenig an 
Gauntlet erinnert es 
schon, das neue 
Spiel von Gremlin 
Graphics. Die bö¬ 
sen Vemom Agenten 
haben fast alle gu¬ 
ten Jungs von der 
Mask Organisation 
gefangengenommen. 
Nur einer ist auf 
freiem Fuß. Und 
jetzt raten Sie mal, 
was der wohl tun 
muß? 


sionszerrüttler, der Zeiüöcher in ande¬ 
re Epochen schafft. Mittels dieser 
Bombe gelingt es dann auch, alle Mask 
Agenten in andere Epochen zu verset¬ 
zen und dort einzusperren. 

Alle, bis auf den obligatorischen Einen 
der alle anderen befreien muß. Der 
letzte verbliebene Agent besteigt nun 
sein Hoovercar und macht sich auf die 
Suche nach seinen Kollegen. 

Erste Station seiner Suche ist der Find¬ 
lingshügel, von uns nur durch einige 
Jahre in Richtung Zukunft entfernt. 

Als Spieler müssen Sie nun das Hoo¬ 
vercar über ein in vier Richtungen 
scrollendes Szenario steuern. 
Unterwegs werden Sie von allen Seiten 
attackiert. Hubschrauber, Panzer, 
Jeeps und Jets stellen Ihnen nach und 
versuchen Sie zu vernichten. 

Da Sie nicht unbewaffnet sind ist es das 
Beste, sich zu verteidigen. Während 
Sie sich so durch die feindlichen Rei¬ 
hen kämpfen, müssen Sie allerdings 
noch auf die Sie umgebende Land¬ 
schaft achten. 

Dort liegen nämlich immer wieder Ge¬ 
genstände herum die Sie für Ihre Suche 
unbedingt brauchen. 

Splenosp Bedienung»* Doku* GreOk Sound Pr^ 

fieundltohKM irieoialion Letelung 



Zum einen gilt es einen Scanner zu fin¬ 
den, der Sie dann zu den Gefängnissen, 
der auf dieser Zone gefangengehalte¬ 
nen Agenten führt. Um diesen Scanner 


einzusetzen bedarf es allerdings eines 
ganz bestimmten Sicherheitsschlüs¬ 
sels, der wiederum aus mehreren Tei¬ 
len, die Sie zusammenpuzzlen müssen, 
besteht. 

Es liegt auch eine Vielzahl von Teilen 
herum, die zwar so aussehen, als ge¬ 
hörten sie auch zu einem Puzzle, dies 
aber nicht tun. Sie liegen einfach so 
herum um den Spieler in die Irre zu 
führen. 

Außer den Schlüsselteilen können Sie 
auf Ihrer Suche auch noch wertvolle 
Ausrüstungsgegenstände finden, die 
die Suche noch weiter vereinfachen. 

Mask zeichnet sich im Wesentlichen 
durch seine Grafik und das spitzenmä¬ 
ßige scroUing aus, der Sound ist guter 
Durchschnitt. Das Spielgeschehen 
selbst hat allerdings einen Bart bis nach 
Babylon. 

(HS) 


VERMEER 

Hersteller; Ariola Soft 
Vertrieb: Fachhandel 
Steuerung: Joystick / Tastatur 
Monitor: Farbe / Grün 
Preis: Kass. 39,95/Disk. 59,95 

CPC 464 K] CPC 664 K CPC 6128 K 

Berlin den 02.02.1918. Die berühmte 
Gemäldesammlung des Wirtschafts¬ 
magnaten Grünschild ist gestohlen 
worden. Trotz intensiver Ermittlungen 
gelingt es nicht, die Täter oder die Ge¬ 
mälde wieder aufzuspüren. Wenig spä¬ 
ter lädt der Magnat Grünschild seine 
Erben zu sich auf seinen Landsitz. Dort 
bekommen die lieben Anverwandten 
eine folgenschwere Mitteilung unter¬ 
breitet. 

Bevor die Herren sich der Erbschaft er¬ 
freuen können müssen sie erst bewei¬ 
sen, daß sie auch verdienen, was sie be¬ 
kommen sollen. Dies stellt sich der alte 
Grünschild folgendermaßen vor. Je¬ 
der, der in seinem Testament begün¬ 
stigt sein soll, muß beweisen, daß er 
auch selbständig etwas auf die Beine zu 
stellen vermag. Am besten würde es 
dem alten Grünschild gefallen, wenn 
der Betreffende im Plantagengeschäft 
ein angesehener Geschäftsmann wer¬ 
den würde und dann mit den Erlösen 
seiner Geschäfte die verschollene 
Grünschild Sammlung wieder zusam¬ 
menstellen würde. 

Aus dieser Rahmenhandlung heraus 
wird der Spieler um die ganze Welt ge¬ 
jagt. Ob St. Louis, Bogota, Mombasa 
oder Bombay, überall kann ein cleve¬ 
rer Geschäftsmann mit den richtigen 
Entscheidungen viel Geld verdienen, 
aber auch ebenso schnell wieder verlie¬ 
ren. Zuerst sollten Sie sich einige Plan¬ 
tagen zulegen und das dafür benötigte 


Wer sich noch an 
das Spiel Hanse er¬ 
innern kann, der 
weiß schon unge¬ 
fähr, was ihn bei 
Vermeer erwartet. 
Denn auch das neu¬ 
este Produkt des 
Machers Ralf Glau 
ist trotz eines leicht 
kriminalistischen 
Touchs wieder zu ei¬ 
ner Wirtschafissi- 
mulation par excel- 
lence geworden. 
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Die Suche nach der 
letzten Matrix und die 
Befreiung gefangener 
Androidenkollegen ist 
die Aufgabe, die Sie 
als Spieler in diesem 
neuen Straiegiespiel 
zu bewältigen haben. 
Den Programmierern 
von Gremlin ist es 
tatsächlich gelungen 
dem allen 3-D Aben- 
teuerspielkonzept 
neue Perspektiven 
abzugewinnen. 







Saatgut. Auch Personal darf nicht ver¬ 
gessen werden, denn von alleine 
kommt die Saat nicht in den Boden und 
die Ernte nicht in die Scheune. Wäh¬ 
rend Sie sich so ein Plantageniraperium 
aufbauen dürfen Sie es allerdings nicht 
versäumen, auf den Auktionen in aller 
Welt nach den verschwundenen Bil¬ 
dern der Grünschild Sammlung Aus¬ 
schau zu halten und gegebenenfalls im¬ 
mer genug Bares zur Verfügung zu ha¬ 
ben um ein Bild zu kaufen. Aber auch 
beim Bilderkauf kann man gewaltig 
reinfallen. Denn gerade zu dieser Zeit 
treibt einer der begnadetsten Fälscher 
sein Unwesen. Vico Vermeer. 

Es kann also durchaus passieren, daß 
der teure Rembrandt, den Sie gerade 
erworben haben, sich als geniale Fäl¬ 
schung entpuppt. 

Spiaiide« Bedienung Dolru- Qr^ük Preiftf 

fMundchk^il msnlaUon Laisning 



Vermeer ist ein Musterbeispiel für eine 
unterhaltsame und gelungene Wirt¬ 
schaftsimulation. Die Komplexität des 
Spielverlaufs ist erstaunlich. Wie be¬ 
reits erwähnt führt der Weg des Spie¬ 
lers durch die ganze Welt. Auktionen, 
der Besuch diverser Galerien, Termin¬ 
geschäfte, Bankgeschäfte, Personalpo¬ 
litik, Anbau und Ernte auf den Planta¬ 
gen machen zusammen mit weiteren 
Möglichkeiten des Programms auch 
dessen Charme aus. Wer Monopoly zu 
einfach findet, der wird von Vermeer 
begeistert sein. (HS) 


The Final Matrix 

Hersteller: Gremlin Graphics 
Vertrieb: Fachhandel 
Steuerung: Joystick / Tastatur 
Monitor: Farbe / Grün 
Preis: ca 30,— DM 

CPC 464 Kl CPC 664 K CPC 6128 Kl 

Weit, weit entfernt, in einer Galaxis, 
die weder Sie noch ich jemals in Natura 
zu Gesicht bekommen werden, leben 
die Bioptons. Eine Rasse von intelli¬ 
genten Androiden, die friedliebend und 
freundlich sind. Aber, wo Licht ist, da 
gibt es auch Schatten. Dieser Part wird 
in diesem Falle von den üblen Cratons 
übernommen. Die Finsterlinge mögen 
die freundlichen Bioptons überhaupt 
nicht. Sobald sie eines Bioptons hab¬ 
haft werden, werfen sie ihn in einen ei¬ 
gens für ihn gebauten Kerker. 
Allerdings darf man sich dieses Ge¬ 


fängnis nicht so vorstellen wie man sie 
gemeinhin aus dem irdischen Strafvoll¬ 
zug kennt. Diese Gefängnisse sind In¬ 
seln im Weltall. Jede Einzelne eigens 
dafür konstruiert und gebaut um Biop¬ 
tons festzuhalten. Nachdem die Cra¬ 
tons inzwischen schon eine ganze Rei¬ 
he von Bioptons gefangengenommen 
hatten, sah sich der oberste Rat der 
Bioptons dazu genötigt, eine großange¬ 
legte Befreiungsaktion zu starten. Und 
ausgerechnet Sie wurden dazu auser¬ 
wählt, diesen gefährlichen Auftrag 
auszuführen (Warum eigenüich immer 
Sie?). Ohne lange Verzögerungen wer¬ 
den Sie dann an Bord Ihres Raumschif¬ 
fes gebracht, der Navigationscomputer 
programmiert und los gehts. Final Ma¬ 
trix ist einmal mehr ein Spiel, das sich 
im 3-D Outfit präsentiert. 

Wer allerdings nun glaubt, hier den x- 
ten Ultimate Aufguß vor sich zu haben, 
der int. Denn abgesehen von der Gra- 
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fik gibt es nicht viele Gemeinsamkei¬ 
ten. Natürlich haben die Cratons es 
nicht versäumt jede der kosmischen 
Gefängnisinseln mit ausgefuchsten Si¬ 
cherheitsanlagen zu versehen. Da gibt 
es beispielsweise die Wächterdroiden, 
die immer in einer festgelegten Zone 
patroullieren. Ausgerüstet mit starken 
Abwehrschirmen und einer Hochlei¬ 
stungslaserkanone, sind diese Wächter 
ausgesprochen unangenehme Zeitge¬ 
nossen. In anderen Bereichen der Ge¬ 
fängnisse gibt es Minen, gefährliche 
wandernde Würfel oder Energieku¬ 
geln, die, ebenfalls in einer definierten 
Zone, zwischen den Wänden hin und 
her hüpfen. Zwar findet sich für jede 
der Bedrohungen auch eine geeignete 
Waffe, jedoch werden diese nicht auf 
dem Präsentierteller angeliefert, man 
muß sie suchen. Jedes der Gefängnisse 
ist wie ein Labyrinth aufgebaut, eben 
wie eine 3-D Matrix. 

Um an den Wächtern vorbei zu kom¬ 
men ist es unumgänglich, nicht nur die 
Wege zu ebener Erde zu untersuchen. 
Oftmals ist es notwendig über Mauer¬ 
spitzen oder durch Gräben hindurch an 
den Wächtern vorbei zu schleichen. 

Sp»id«e Bddidnun^- Doku- tärvHk Sound Pr*i&/ 

>reundlichkall neniaikon Leieiung 





The Final Matrix ist auf jeden Fall kein 
leichtes Spiel. Reine Joystickakrobaten 
werden schnell einsehen müssen, daß 
hier mit wildem Herumschießen wenig 
zu gewinnen ist. Vielmehr ist es not¬ 
wendig, die einzelnen Matrizen genau 
zu erkunden und dann zu entscheiden, 
welche Strategie hier die besten Ergeb¬ 
nisse erzielen könnte. Ein Spiel für die¬ 
jenigen die gerne knobeln und tüfteln. 
Alles in allem ein interessantes, kor¬ 
rekt präsentiertes, mit guten Ideen ver¬ 
sehenes Spielkonzept. 

(HS) 


Mission cenocide 

Hersteller: Firebird Silver Range 
Vertrieb; Fachhandel 
Steuerung: Joystick / Tastatur 
Monitor: Farbe / Grün 
Preis: ca. 10,- DM 

CPC 464 K CPC 664 Kl CPC 6128 K 

Wer kennt sie nicht, die feinen kleinen 
Schießspielchen, bei denen man als 
Spieler ein kleines Raumschiff über ei¬ 
nen vertikal scrollenden Hintergrund 


Haben Sie mal wie¬ 
der richtig Frust im 
Bauch? Ja. dann 
habe ich hier genau 
das Richtige fiir Sie. 
Ballern Sie sich den 
Frust doch einfach 
vom Leib. Mit Mis¬ 
sion Genocide ge¬ 
langte ein neues 
Budget Spiel auf 
meinen Schreib¬ 
tisch, das den Ver¬ 
gleich mit teuren 
Programmen dieser 
An nicht zu scheuen 
braucht. 



steuern muß, während von oben immer 
neue Scharen von Aliens kapriolen¬ 
schlagend auf Sie einstürmen. Ein 
Spielprinzip, das sich seit seiner Erfin¬ 
dung nur sehr geringfügig verändert 
hat. Insofern ist Mission Genocide ein 
Spiel dessen Review man sich eigent¬ 
lich hätte sparen können. 

Ein Umstand allerdings bewog mich, 
doch darüber zu schreiben, und das ist 
der Preis. Für ca. 10,— Mark erhält 
man hier ein Shoot em’ Up (und nichts 
anderes) das alles beinhaltet was das 
Kriegerherz begehrt. 

Spi«lKSM 6«0ienuAg^ Deko* Qrank Sound Preis/ 

freundltchkeil mer>te1iOn Leietung 



Vergleichbare Programme kosten in 
der Regel mindestens 30,— DM. An¬ 
sonsten gibt es eigentlich nicht viel zu 
vermelden, außer daß die Grafik OK ist 
und man, wenn es einen der Gegner 
zerreißt, auch einen Knall hört. 

Nichts Weltbewegendes also, aller¬ 
dings die ideale Möglichkeit, seine 
Softwaresammlung um ein klassisches 
Ballerspiel zu ergänzen und das uner¬ 
hört preiswert. (HS) 

Paperboy 

Hersteller: Elite Systems 
Vertrieb: Fachhandel 
Monitor: Farbe / Grün 
Steuerung: Joystick / Tastatur 
Preis: ca. 35,— DM 

CPC 464 K! CPC 664 ® CPC 6128 KI 

Heiracomputerversionen von aktuellen 
Spielhallenautomaten erfreuen sich 


derzeit, bei Herstellern und Käufern 
gleichermaßen, eines unerhörten Inter¬ 
esses. Die Zahl der Arcadenspiele, die 
bereits adaptiert wurden ist Legion und 
Legion ist auch die Zahl derer, die je¬ 
desmal von Neuem unken, daß eine 
spielbare Version ebenjenes Spiels auf 
einem Heimcomputer nicht machbar 
sei. Paperboy, so nennt man in Eng¬ 
land die Jungs die jeden Morgen die 
Zeitung bringen. Mit einem Fahrrad 
und einer ganzen Menge Zeitungen be¬ 
waffnet brechen Sie jeden Morgen auf 
und versorgen ihren Bezirk mit Zei¬ 
tungen. 

Wie das allerdings gemeinhin bei Com¬ 
puterspielen der Fall ist, findet sich 
auch hier wieder eine Vielzahl von 
Handycaps und Hindernissen die dafür 
sorgen, daß dem Paperboy die Zeit 
nicht lang wird. Denn während er so 
mit seinem Fahrrad durch seinen Be¬ 
zirk fährt und seine Zeitungen verteilt, 
muß er aufpassen, daß er nicht mit ei¬ 
nem der Frühaufsteher, die schon in 
der Gegend heruralaufen, zusammen¬ 
stößt. Außerdem muß er jedes Haus, 
vor dem sich ein »Sun« Zeitungsbrief¬ 
kasten befindet mit einer Zeitung ver¬ 
sorgen. 

Vergißt er dabei einmal einen Haushalt 
zu beliefern, so kündigen die Bewoh¬ 
ner alsbald das Abonnement und unser 
Paperboy hat einen Kunden weniger. 
Hat der Paperboy seine tägliche Runde 
beendet, stellt er nicht etwa sein Fahr¬ 
rad in die Garage, nein, als alter BMX 
Radprofi zieht er erst einmal noch eine 
Runde über den örtlichen Hindemis- 
parcour. Paperboy ist ein Spiel, bei 
dem es erfrischend unkriegerisch zu¬ 
geht. Als Spieler steuern sie den Paper¬ 
boy durch die Straßen seines Bezirkes. 
Dabei müssen Sie natürlich darauf ach¬ 
ten, daß Sie mit niemandem zusam- 
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Paperboy, so nennt 
man in England die 
Jungs die jeden 
Morgen die Zeitung 
vorbeibringen. 
Schlüpfen Sie in die 
Rolle eines solchen 
Paperboys und ver¬ 
suchen Sie. die Auf¬ 
lage Ihrer Zeitung 
zu steigern. Denn, 
je korrekter die Zu¬ 
stellung, desto zu¬ 
friedener der 
Kunde. 


menstoßen und kein Haus vergessen, 
da andernfalls das Abo gekündigt wird 
und Sie in der nächsten Runde weniger 
Punkte erzielen können. Die Fahrt über 
den Hindemisparcour wird im Spiel zu 
einer Bonusrunde in der man, schnelles 
Fahren vorausgesetzt, eine Menge Bo¬ 
nus einsacken kann. 


SpWKtof Bed«nungs* Oohu* QnOlk Sound Preis/ 
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Die Grafik von Paperboy bricht zwar 
keine Lanzen ist aber durchaus akzep¬ 
tabel. Sound und Musik sind recht 
mau. Das Spielgeschehen präsentiert 
sich unterhaltsam und friedvoll. Nur 
leider wird Paperboy verhältnismäßig 
schnell langweilig. 

(HS) 


All diese boshaften Spielwaren sollten 
zu Weihnachten an tausend Leute ver¬ 
schickt werden. 

Hätte damals das kleine Ding mit der 
Sprungfeder keinen Wind davon be¬ 
kommen, dann... 

Allerdings stellt sich heraus, daß es da¬ 
mit den Kobold zu vertreiben, nicht ge¬ 
tan ist. 

Die Fabrik muß erst noch mit einem 
neuen Programm versehen werden. 
Denn solange das Alte noch aktiv ist, 
hört die Fabrik nicht auf auch weiterhin 
die höllischen Spielwaren zu produzie¬ 
ren. Ihre Aufgabe ist es nun, das Ding 
auf der Feder nochmals durch die Fa¬ 
brik des Kobolds zu steuern. 

Nur muß es dieses Mal die Bestandteile 
des neuen, harmlosen Programmes zu¬ 
sammensuchen und im Computer der 
Fabrik installieren. Wer sich noch an 
den Gremlin Hit Thing On A Spring er¬ 


innern kann, weiß, daß dies ein ausge¬ 
zeichnetes Spiel war. Natürlich muß es 
sich der zweite Teil gefallen lassen, mit 
seinem Vorgänger verglichen zu 
werden. 

Ein Vergleich, den Thing Bounces 
Back nicht zu scheuen braucht. Die 
Grafik ist wieder ausgezeichnet und 
tipptopp animiert. Der Sound hat un¬ 
wahrscheinlich viel Pep und Rhythmus 
und untermalt das Spielgeschehen auf 
das Feinste. 

Am Spielgeschehen selbst und auch an 
der Steuerung hat sich nicht viel geän¬ 
dert. Allerdings waren es im ersten 
Teil nur vier verschiedene Level die je¬ 
weils vertikal hin und her gescrollt 
wurden, also jeweils nur einen Monitor 
hoch waren. 

Der zweite Teil weist im Vergleich 
dazu schon elf Levcls auf, jedes ca. 
zwölf Monitore groß und so zusam¬ 
mengestellt, daß sie quasi ein Quadrat 
bilden. Ergo wird dieses Mal auch ver¬ 
tikal gescrollt. 


&«di9nur>ge> Oo4<u- GtaRk Sound Preis/ 

freuivllichkeil meniaiien Le>$(ung 



Bunt und lustig gemacht, viel Kurzweil 
und Überraschungen beim Erkunden 
der elf Levels, satter Sound und ge¬ 
konnte Präsentation machen dieses 
Spiel wirklich empfehlenswert. Um’s 
mal Neudeutsch auszudrücken, es 
»turnt« einfach an. (HS) 


Thing Bounces Back 

Hersteller: Gremlin Graphics 
Vertrieb: Fachhandel 
Steuerung: Joystick / Tastatur 
Monitor: Farbe / Grün 
Preis: ca. 35,— DM 

CPC 464 K CPC 664 XI CPC 6128 XI 

Da gab es einmal einen ganz garstigen 
Kobold, der hatte sich in den Kopf ge¬ 
setzt die Menschen so richtig zu peini¬ 
gen. Zu diesem Zwecke baute er mit all 
seinen KoboldkoUegen eine computer¬ 
gesteuerte Fabrik, die nichts anderes 
als teuflisches Trickspielzeug produ¬ 
zierte. 


Können Sie sich 
noch an das Ding 
mit der Sprungfeder 
erinnern? Diesen 
quicklebendigen 
kleinen Kerl der 
sich mit dem greuli¬ 
chen Spielzeugko¬ 
bold angelegt hat? 
Auf jeden Fall ist es 
ihm gelungen den 
Kobold zu vertrei¬ 
ben. Die von ihm 
gebaute Fabrik pro¬ 
duziert allerdings 
immer noch ein 
teuflisches Spielzeug 
nach dem anderen. 
Wird es das Ding 
mit der Feder es 
schaßen die Fabrik 
stillzulegen? 
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CHOLO 

Hersteller: Firebird 
Vertrieb: Fachhandel 
Steuerung: Joystick / Tastatur 
Monitor: Farbe / Grün 
Preis: ca. 45,— DM 

CPC 464 K! CPC 664 Kl CPC 6128 XI 

Was der Mensch unter Einfluß eines 
bedingungslosen Fortschrittglaubens, 
eingebettet in das, was Militärs gerne 
als bedingungslosen Gehorsam be¬ 
zeichnen (das mögen sie gerne, die Mi¬ 
litärs), zu tun in der Lage ist, veran¬ 
schaulicht die Geschichte, die 1945 in 
Hiroshima passierte. Seit damals lebt 
die Menschheit permanent im Ange¬ 
sicht der Apokalypse. 

Die Vorstellung, was alles passieren 
könnte wenn die atomare Ab¬ 
schreckung eben einmal nicht genü¬ 
gend abschreckt, hat ganze Generatio¬ 
nen von Schriftstellern und Filmema¬ 
chern beeinflußt. 

Aber die Vorstellung einer postatoma¬ 
ren Ruinenwelt wurde auch in anderer 
Beziehung aufgegriffen. Die Softwa¬ 
reindustrie hat im Laufe der Zeit so 
manchen Titel hervorgebracht, der 
sich gerade mit dieser Thematik be¬ 
faßt. Jüngstes Beispiel ist Cholo. 

Irgendwann und irgendwo, auf unserer 
Erde oder auf einer anderen, ähnlichen 
Welt, heulen die Sirenen. Feindliche 
Raketen mit atomaren Sprengköpfen 
befinden sich im Anflug, der eigene 
Abwehrgürtel wurde durchbrochen, in 
wenigen Minuten steht unabwendbar 
die Apokalypse auf dem Programm. 

Kurz vor dem eigentlichen Holocaust 
werden die Tore des Cholo City Bun¬ 
kers geschlossen. Die Bunkeranlage 
übersteht den Angriff verhältnismäßig 
unbeschadet. Es folgen Jahre der Dun¬ 
kelheit und des Wartens, bis die Gei¬ 
gerzähler anzeigen, daß der Strahlung¬ 
spegel außerhalb des Bunkers im Be¬ 
griff ist zu sinken. 

In absehbarer Zeit können die Tore des 
Bunkers geöffnet werden und die Men¬ 
schen von Cholo City würden einen 
neuen Anfang machen. 

Die Techniker im Bunker beginnen da¬ 
mit die Öffnungsmechanismen der 
Bunkertore zu untersuchen und ma¬ 
chen dabei eine entsetzliche Ent¬ 
deckung. Die Tore können nur durch 
gleichzeitig gesendete Codes von zwei 
Computersystemen geöffnet werden. 


Der atomare Holo¬ 
caust hat stattgefun¬ 
den. Die letzten 
Überlebenden der 
Menschheit vegetie¬ 
ren in einem Bunker 
dahin. Die Jahre ver¬ 
gehen und irgend¬ 
wann nimmt die 
Strahlung wieder ab. 

In absehbarer Zeit 
werden die Menschen 
aus ihrem Bunker 
wieder hervortreten. 
Da wird man eines 
schrecklichen Um¬ 
standes gewahr. Der 
Bunker wurde versie¬ 
gelt und ist nur noch 
von außerhalb zu öff¬ 
nen, aber dort lebt 
nienumd mehr... 



Das eine ist das bunkereigene, das an¬ 
dere das der Verteidigungsanlage in 
der Stadt. Und das Verteidigungssy¬ 
stem der Stadt existiert nicht mehr. 

Da sich die Bunkertüren nicht mecha¬ 
nisch öffnen lassen, sitzen die Men¬ 
schen rettungslos in der Falle. Aber 
wie üblich ergibt sich auch hier eine 
winzige Chance. 

Einem der Computertechniker gelingt 
es, einen in der Stadt herumfahrenden, 
voll funktionierenden Roboter anzu¬ 
zapfen und ihm ein Programm einzu¬ 
speisen. Primäre Aufgabe; öffne die 
Bunkerlore. 

Cholo ist laut Firebird der Nachfolger 
des legendären Elites. In Bezug auf die 
komplexe Spiclhandlung und die Dauer 
des Spieles mag man das auch glauben. 

Das Spielgeschehen beginnt in dem 
Moment, als es den Computertechni¬ 
kern gelingt den Rat-Robot unter ihre 
Kontrolle zubekommen. Sie als Spieler 
müssen nun die schwere Aufgabe über¬ 
nehmen mittels des Rat-Robots die zer¬ 
störten Computerbänke zu restau¬ 
rieren. 

Schon bald stellt sich heraus, daß ein 
Robot alleine dieser Aufgabe nicht ge¬ 
wachsen ist. 

Erstes Teilziel, übernehmen Sie die 
Kontrolle über einen weiteren Robot. 
Dies geschieht folgendermaßen: zuerst 
muß er durch einige gezielte Schüsse 
gelähmt werden, danach kann man mit 
dem Rat-Robot eine Verbindung zwi¬ 
schen beiden Robots hersteilen und den 
gefangenen Robot mit entsprechenden 
Befehlssätzen ausstatten. 

Allerdings verfügt der Rat-Robot auch 
noch nicht über alle dafür benötigten 


Programme. Diese müssen teilweise 
erst aus überall in Cholo City verteilten 
Computerbänken abgerufen werden. 
Allerdings ist es dafür wiederum not¬ 
wendig, diese Bänke zu finden. Das 
Spielfeld von Cholo erstreckt sich über 
die ganze Stadt, die dem Spieler kom¬ 
plett als Vektormodell präsentiert 
wird. Der Packung liegt außerdem ein 
Stadlplan von Cholo City bei, anhand 
dessen der Spieler sich orientieren 
kann. 


SpielldM 0ed«nung$* GrafK Sound Prots/ 
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Die Grafik des Spieles kann durchaus 
als gelungen bezeichnet werden, auch 
wenn bei den Gittermodellen Linien 
auftauchen die eigentlich nicht zu'^- 
hen sein dürften, da sie durch die Per¬ 
spektive verdeckt sind. Abgesehen da¬ 
von wäre nur noch zu bemängeln, daß 
die Animation ganz schön langsam ist. 
Vom Sound wollen wir am besten gar 
nicht erst reden, denn davon ist in An¬ 
betracht des bereits mit der Grafik fast 
überfüllten Speichers nicht viel vor¬ 
handen. Cholo ist ein Spiel, das viel 
Zeit erfordert. 

All jenen, die sich gerne mal kurz ein 
Spiel einladen, um mal eine Viertel¬ 
stunde zu spielen, sei von Cholo abge¬ 
raten, denn wenn man hier auf einen 
grünen Zweig kommen will, muß man 
schon die eine oder andere Nach¬ 
tschicht einlegen. (HS) 
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Demnächst auf Ihrem 
Computer... 

Die Sommermonate und damit das be¬ 
rüchtigte Sommerloch sind vorbei. Al¬ 
lenthalben regt sich wieder Leben in 
der Branche. Die Softwareindustrie 
arbeitet fieberhaft auf das Weih¬ 
nachtsgeschäft hin. Aber bereits jetzt 
zeigen sich die ersten neuen Pro¬ 
gramme. 


Exolon 



Hewson macht mobil. Dieses Software¬ 
haus scheint einen Pachtvertrag für gute 
Ballerspiele zu haben. Von Uridium, das 
es leider noch nicht für den CPC gibt, bis 
zu Zynaps spannt sich da der Bogen. Bei 
Exolon übernehmen Sie die Rolle eines 
Sternenkriegers, der, in einer Spezial 
Kampfrüstung steckend, durch feindli¬ 
ches Territorium muß. Screen für 
Screen, die übrigens nicht scrollen, muß 
sich der Spieler durch immer wildere 
feindliche Angriffe kämpfen. 


World Games 



Sportspiele sind hierzulande sehr beliebt. 
Das neueste CPC-Spiel aus dem Hause 
Epyx wird die Sportlerriege unter den 
CPC Benutzern sicherlich wieder zu Bei¬ 
fallstürmen hinreißen. Denn endlich ist 
sie da, die langerwartete Amstrad Ver¬ 
sion der World Games. Wie der Name 
schon sagt, wurden hier Sportarten zu¬ 
sammengestellt die speziell in einem be¬ 
stimmten Land ihren Ursprung haben. 
Beispielsweise das Sumoringen aus Ja¬ 
pan oder Baumstammwerfen aus Schott¬ 
land. 


The Living Daylights 



James Bond ist wieder da und er hat ein 
neues Gesicht. Timothy Dalton ist 007. 
Wie schon bei View to a Kill hat sich das 
englische Softwarehaus Domark auch 
diesmal die Rechte für ein Computerspiel 
zum Film gesichert. Während die erste 
Bond Adaption aus dem Hause Domark 
unseres Erachtens ein wenig daneben 
war, hat man sich bei »Daylights« wirk¬ 
lich Mühe gegeben. Sound und Grafik 
sind wirklich gelungen, allerdings ist das 
Spielgeschehen ein wenig misraten. 



Hybrid 


Ariola Soft, wohl derzeit Deutschlands 
aktivstes Softwarehaus bringt mit Hybrid 
ein neues Arcaden Abenteuer heraus. Es 
geht darum, drei Roboter die einzeln 
oder als Einheit operieren können, durch 
ein fremdes Raumschiff zu steuern. An 
verschiedenen Stellen müssen bestimmte 
Teile des fremden Schiffes zerstört wer¬ 
den, um somit Greuliches von uns armen 
Erdenmenschen abzuwenden. Das Spiel, 
das übrigens unter dem Ariola Label 
Starlight erschien, hat eine ganz passa¬ 
ble Grafik. Das Spielgeschehen selbst 
konnten wir bislang leider keiner gründ¬ 
lichen Untersuchung unterziehen. 



Indoor Sports 


Noch’n Sportspiel. Jeder kennt sie, die 
Sportarten, bei denen man sich nicht viel 
zu bewegen braucht, wie Darts, Bowling 
oder Air Hockey. Nun können Sie die¬ 
se Sportarten betreiben und sich noch 
weniger bewegen. Indoor Sports machts 
möglich. Außer den bereits erwähnten 
Disziplinen findet sich auch Fing Pong 
in der Spielesammlung. Bei einem Bier¬ 
chen zusammen mit ein paar Freunden 
macht Indoor Sports sicherlich viel Spaß. 


Black Magic 



Mit diesem Spiel legt US Gold eine 
Adaption eines amerikanischen C64 
Spieles vor. Es gehteinmal mehrumei¬ 
nen bösen Magier, der die sechs Augen 
des Gottes Anakar verschleppt hat. Als 
tapferer Computerspieler sind Sie gefor¬ 
dert diese Augen wieder zu versammeln. 
Auf einem in vier Richtungen scrollen- 
den Spielfeld, das das Szenario in einem 
Querschnitt zeigt, müssen Sie sich dann 
mit allerlei unheimlichen Getier ausein¬ 
andersetzen und immer darauf achten, 
daß genügend Zaubersprüche und Pfei¬ 
le im Rucksack sind. Alles in allem ein 
verhälmismäßig hausbackenes Arcaden 
Ad venture. 

Nick Faldo plays the Open 



Dieses Spiel ist zwar keine Neuheit, je¬ 


doch eine Neuauflage eines ehemaligen 
Full Prize Titels, der nun eine Neuaufla¬ 
ge als Billigspiel erlebt. Golfsimulatio¬ 
nen gibt es ja für so ziemlich jeden Rech¬ 
nertyp, auch für die CPCs gibt es bereits 
mehrere verschiedene Spiele dieser Art. 
Die von Nick Faldo gefeaturte Variante 
schneidet im Vergleich nicht schlecht ab. 

(HS) 
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— Das ist die Software zum CPC Magazin — 

— Jeden Monat neu — 


DATABOX: 

— mehr als der Übliche Soft¬ 
wareservice 

— bringt ergänzend sämtli 
che Listings der jeweiligen 
Zeitschrift und alle Pro¬ 
grammbeispiele auf Kas¬ 
sette oder auf 3’-Diskette. 

— Programme sind, soweit 
systembedingt möglich, 
auf allen drei CPC- 
Modellen lauffähig. Einzel¬ 
heiten entnehmen Sie bit¬ 
te der nebenstehenden 
Aufstellung. 

— erscheint jeden Monat 
und trägt das Titelbild des 
gleichzeitig erscheinen¬ 
den Heftes. 

— der Datenträger zum 
Schneider CPC Internatio¬ 
nal enthält außerdem je¬ 
desmal ein zusätzliches 
Bonusprogramm, das 
nicht im Heft abgedruckt 
ist. 


Einzelbezug: 

Einzelbezugspreise für DATABOX; 

Diskette 3” 24,— DM zuzüglich 3,— DM Porto/Ver¬ 
packung (im Ausland zuzüglich 5,— DM PortoA/er- 
packung). 


Kassette 14,— DM zuzüglich PortoA/erpackung (im 
Ausland zuzüglich 5,— DM PortoA/erpackung). 


Zahlungswelse: 

Am einfachsten per Vorkasse (Verrechnungs¬ 
scheck) oder als Nachnahme zuzüglich der Nach¬ 
nahmegebühr (in das Ausland ist Nachnahme 
nicht möglich). 


Preisvorteil durch Databox-Abo: 

Unser beliebter Databox-Service kann ab sofort 
auch im Abonnement bezogen werden. Dadurch 
sparen Sie Mühe und haben außerdem noch ei¬ 
nen Preisvorteil gegenüber dem Einzelbezug. 



Für alle CPC’s als Kas¬ 
sette und 3” Diskette. 
Auch als Abonnement 
mit Preisvorteil erhältlich. 
Inhalt der Databox zu Heft 
10 / 86 : 


Programm 
Tokio Express 
Periodensystem 
Statomat II 
664/6128 Emulator 
Animator 
USR Funktion 
DEMO USR 
Bankdatei LOAD 
Bankdatei SAVE 
Gobang 
ROM-Kopie 
High-ScoreTAB 
Uhrtreiber 
Uhrass.-Text 
Bonusprogramm 


464 664 6128 

• • 

• • 



Das Databox-Abo kostet: 

Als Kassette für 1/2 Jahr (6 Lieferungen); 

Im Inland und West-Berlin.90,— DM 

Im europäischen Ausland.100,—DM 

Im außereuropäischen Ausland.120,— DM 

Als Diskette für 1/2 Jahr (6 Lieferungen; 

Im Inland und West-Berlin.150,— DM 

Im europäischen Ausland.160,— DM 

Im außereuropäischen Ausland.180,— DM 

Als Kassette für 1 Jahr (12 Lieferungen); 

Im Inland und West-Berlin.180,— DM 
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von CP/M 


zu MS-DOS 


Teil 10 

Der zehnte Teil unserer Serie »Von CP/M zu MS-DOS« setzt die B^chrei- 
bung der Subdirectories unter MS-DOS fort. Sie lernen heute einige nützli¬ 
che Hilfsprogramme und Befehle kennen, die die Arbeit mit Subdirectories 
vereinfachen. 


In der letzten Folge dieses Kurses haben 
Sie die Grundlagen der Subdirectories 
kennengelemt und erfahren, wie man mit 
den Befehlen MKDIR, CHDIR und 
RMDIR arbeitet. Man kann schon ganz 
vernünftig mit MS-DOS umgehen, wenn 
man nur diese drei Befehle zur Verwal¬ 
tung der Subdirectories benutzt. Aber oft 
ist der Aufwand viel zu groß, zumal es 
oft zeitsparende Abkürzungen und ele¬ 
gante »Schleichwege« gibt. 

So wurde bereits letztes Mal angedeutet, 
daß man in praktisch allen Fällen, in de¬ 
nen MS-DOS oder ein DOS-Programm 
einen Dateinamen erwartet, auch einen 
kompletten Pfadnamen angeben kann: 
A>DIR \PASCAL 
A > ERASE MSDOS \ UTIL \ *, BAT 
A>TYPE \ AUTOEXEC.BAT 
A>COPY CON-h \ AUTO¬ 
EXEC.BAT \DOS\A.BAT 


Programme in Verzeichnissen 


Auch das Starten von Programmen aus 
einem anderen als dem aktuellen Inhalts¬ 
verzeichnis ist möglich. Es funktioniert 
sowohl in DOS Plus als auch MS-DOS, 
bei letzterem ab Version 3.0 und damit 
auch beim Schneider-PC: 

A> C: \ SYS \ FORMAT A: 

A> D: \PASCAL\ TURBO \ 
TURBO-87 

Wenn Sie Ihre Diskette oder Festplatte 
perfekt organisiert haben, sollte das 
Root-Directory keine Dateien oder Pro¬ 
gramme mehr enthalten, sondern ledig¬ 
lich Subdirectories, in die wiederum alle 
Programme eingegliedert wurden. Das 
hat den Vorteil, daß Sic immer sofort 
wissen, wo Sie welche Datei suchen 
müssen. 

Allerdings kann es ganz schön nerven¬ 
aufreibend sein, ständig lange Pfadna¬ 


men bei zu startenden Programmen an¬ 
zugeben. Wie oft werden Sie wohl frei¬ 
willig den folgenden Befehl eingeben, 
ohne nach einer besseren Lösung zu su¬ 
chen? 

A>C: \SYS\MSDOS\UTIL\ 

DISK \ FORMAT A: 

Das hat wohl auch Microsoft eingesehen 
und eine Möglichkeit geschaffen, das 
Betriebssystem mehrere Subdirectories 
nach Programmdateien absuchen zu 
lassen. 


Von den Environments 


Das Zauberwort heißt »Environment- 
Strings«. Und da wird es mal wieder 
Zeit, weiter auszuholen. In CP/M gibt es 
keinen reservierten Speicherbereich, den 
Programme nutzen könnten, um unter¬ 
einander Daten auszutauschen. Das ist 
kein großer Verlust, da CP/M ja nicht 
einmal einen offiziellen Weg vorsieht, 
daß ein Programm ein anderes nachladen 
kann. In MS-DOS ist die Situation ganz 
anders. Es gibt einen dokumentierten Sy¬ 
stemaufruf, der von einem Programm 
aus ein anderes startet. Damit solche 
Programmteile untereinander Daten aus- 
tauschen können, wurden die Environ¬ 
ment-Strings geschaffen. Sie sind eine 
Art Stringvariablen, ähnlich denen in Ba¬ 
sic. Programme können sie in eine Ta¬ 
belle eintragen oder aus ihr lesen. Aber 
auch der Benutzer kann sie inspizieren 
und verändern. Dazu besitzt MS-DOS 
den residenten Befehl SET. Wird er ohne 
Parameter eingegeben, listet DOS die 
definierten Strings auf. In einem unmo- 
difizierten DOS-System sieht das unmit¬ 
telbar nach dem Systemstart so aus: 

A>SET 

PATH= 

COMSPEC=A: \COMMAND.COM 


Sie können nun mit SET beliebig Envi¬ 
ronment-Strings eingeben: 

A > SET GRUSS - HALLO 
A > SET COMPUTER=PC 
A>SET 
PATH= 

COMSPEC=A: \ COMMAND.COM 

GRUSS=HALLO 

COMPUTER=PC 

Ein Programm könnte nun diese Envi¬ 
ronment-Strings abfragen und geeigne¬ 
te Aktionen unternehmen. Vorrangig be¬ 
nutzen viele Programme das Environ¬ 
ment, um einen Suchpfad für ihre Daten¬ 
dateien zu erhalten. Nehmen wir ein 
fiktives Textprogramm TEXT/PC. Es 
sucht seine Textdateien gmndsätzlich im 
aktuellen Directory und — wenn es dort 
keine findet — in einem benutzerdefi- 
nierten^nvironment-String. Also legt 
der PC-fenulzer in seiner AUTOEXEC- 
Datei oder von Hand etwa folgenden 
String an: 

A > SET TEXT/PC=A: \ TEXT \ BRIEFE 
Das Texqjrogramm untersucht bei sei¬ 
nem Start diesen String und weiß dann, 
wo es seine Dateien findet. 


PATH und COMSPEC 


Diese Environment-Strings liegen ganz 
in der Obhut der für sie bestimmten Pro¬ 
gramme. MS-DOS wertet sie normaler¬ 
weise nicht aus. Da gibt es aber einige 
Ausnahmen, denn diverse »Variablenna¬ 
men« sind bereits von MS-DOS vorde¬ 
finiert, sozusagen als »Systemvariablen«. 
Zwei haben Sie bereits kennengelernt, 
als Sie SET ausprobiert haben: PATH 
und COMSPEC. 

COMSPEC zeigt für MS-DOS auf die 
Datei, die als Befehlsprozessor verwen¬ 
det werden soll. Denn alle Befehlseinga- 
ben, die Sie machen, wie DIR oder CD 
werden nicht von MS-DOS direkt bear¬ 
beitet, sondern von einem Programm, 
das die Eingaben analysiert und entspre¬ 
chend reagiert. In CP/M 2.2 war dieser 
Programm — dort CCP (Console Com- 
mand Processor) genannt — ziemlich 
eng mit dem Betriebssystem ver¬ 
schweißt. In MS-DOS ist er ein eigen¬ 
ständiges Anwenderprogramm mit dem 
Namen COMMAND.COM. Damit MS- 
DOS weiß, wo es ihn suchen soll, fragt 
es die Environment-Variable COM¬ 
SPEC ab. Sie können also, zum Beispiel 
als Festplatten-Besitzer, COMMAND. 
COM auch im Subdirectory \SYS\ 
MSDOS \ UTIL verstecken und müs.sen 
nur in COMSPEC diesen Suchpfad ein¬ 
tragen: 
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A >SET COMSPEC=C: \SyS 
\MSDOS\UTL 


Der RAM-Disk-Trick 


Mit dem gerade gezeigten kleinen Trick 
können auch Nur-Floppy-Besitzer ver¬ 
hindern, daß MS-DOS am Ende von 
speicherplatzhungrigen Programmen 
immer COMMAND.COM von der 
Floppy-Disk nachladen muß. Kopieren 
Sie einfach COMMAND.COM in die 
RAM-Disk und lassen Sie COMSPEC 
darauf zeigen. MS-DOS lädt COM- 
MAND.COM dann zwar immer noch 
von einer Diskette, nur ist die RAM-Dis- 
kette natürlich um ein Vielfaches schnel¬ 
ler als ein mechanisches Laufwerk. 
Aber die Manipulation von COMSPEC 
kann durchaus gefährlich werden. 
Wenn MS-DOS auf dem angegebenen 
Pfad COMMAND.COM nicht findet, 
gibt es eine Fehlermeldung aus und war¬ 
tet darauf, daß die Diskette ausgewech¬ 
selt wird. Bei Speichermedien wie 
RAM-Disks und Festplatten, die nicht 
gewechselt werden können, hält DOS 
schlicht das ganze System an und wartet 
auf einen Reset mit CTRL-ALT-DEL. 
Die zweite vordefinieite Variable im En¬ 
vironment ist entscheidend. Wegen ihr 
mußten wir uns mit Environment-Varia¬ 
blen überhaupt beschäftigen. Sie trägt 
den Namen PATH, zu Deutsch »Pfad« 
oder »Suchpfad«. Ihr kommt bei MS- 
DOS und DOS-Plus eine herausragende 
Bedeutung zu. Wenn Sie ein Programm 
starten wollen, sucht MS-DOS zuerst das 
aktuelle Subdirectory ab. Findet es dort 
das Programm nicht, liest es den PATH- 
String und faßt ihn als Suchpfad auf. Das 
Betriebssystem hangelt sich an diesem 
Pfad entlang und sucht das dort angege¬ 
bene Subdirectory nach der Programm¬ 


datei ab. Findet es sie dort, lädt DOS die 
Datei und startet sie. Erst wenn das Be¬ 
triebssystem auch hier den Dateinamen 
entdecken kann, gibt es die Fehlermel¬ 
dung »Befehl oder Dateiname falsch« 
aus. 

Als frischgebackener Fes^lattenbesitzer 
(die Hinweise gelten aber auch für Flop- 
py-Benutzer) können Sie ein Subdirec¬ 
tory DOS anlegen und in dieses alle MS- 
DOS-Hilfsprogramme kopieren: 

OMD DOS 
C>COPYA:*.* \DOS 

Und jetzt richten Sie noch den PATH- 
Zeiger auf dieses Directory: 

C>SET PATH=C:\DOS 

Resultat: Egal in welchem Inhaltsver¬ 
zeichnis sich der Computer befindet und 
welches Laufwerk gerade angemeldet 
ist, MS-DOS sucht auch das Verzeichnis 
C: \ DOS nach der gewünschten Pro¬ 
grammdatei ab. 

So haben Sie zwei erstrebenswerte Zie¬ 
le gleichzeitig erreicht. Zum einen ist Ihr 
Massenspeicher sauber in Unterinhalts¬ 
verzeichnisse organisiert, zum anderen 
haben Sie jederzeit Zugriff auf die MS- 
DOS Hilfsprogramme, ohne ständig den 
lästigen Pfadnamen angeben zu müssen. 
Sie können die Perfektion aber noch wei¬ 
ter treiben: PATH akzeptiert durchaus 
mehrere Suchpfade gleichzeitig. Sie 
werden durch Strichpunkte voneinander 
getrennt: 

A>SET 

PATH= \MSDOS; \DOSPLUS; \ 
TURBO; \ BASIC 

Je länger der PATH-String wird und je 
größer die Subdirectories werden, desto 
länger ist aber auch MS-DOS mit dem 
Suchen beschäftigt. Deshalb sollten Sie 
die am häufigsten benötigten Subdirec¬ 
tories zuerst angeben. 


Wordstar ist antik! 


Es gibt aber auch Programme, die abso¬ 
lut keine Subdirectories akzeptieren, das 
kann durchaus pure Vergeßlichkeit oder 
Bequemlichkeit des Programmierers 
sein. Meistens liegt es aber daran, daß 
ein derartiges Programm schon ziemlich 
alt ist. Das bekannteste Beispiel ist 
Wordstar. Die Versionen 3.x dieses Pro¬ 
gramms wurden vor Jahren das letzte 
Mal verbessert, zu einem Zeitpunkt, als 
Festplatten kaum verbreitet und deshalb 
Subdirectories nur von geringem Inter¬ 
esse waren. 

Will man die Gründe verstehen, warum 
Wordstar und einige andere Programme 
keine Subdirectories kennen, sollte man 
sich die Liste ^ DOS-Systemfunktio- 
nen ansehen. Wer schon einmal in CP/M 
programmiert hat, wird sich sofort wie¬ 
der zurechtfinden: Ein großer Teil der 
DOS-Funktionen ist CP/M- kompatibel. 
Das wurde so gemacht, um möglichst 
schnell möglichst viele CP/M-Program- 
me mit möglichst geringem Aufwand auf 
MS-DOS zu übertragen. Es gibt sogar 
Programmpakete, die 8080-Maschinen- 
programme auf Quellcode-Ebene in 
8086-Assemblercode für MS-DOS ura- 
setzen! Eines der »Opfer« dieses Über¬ 
tragungsprozesses war Wordstar. Natür¬ 
lich sind solche schematisch übertrage¬ 
nen Programme weder in Bezug auf die 
Laufzeit noch die Programmgröße be¬ 
sonders herausragend, aber sie funktio¬ 
nieren. 

Da CP/M keine Subdirectories kennt, 
wurden sie auch von MS-DOS 1.0 nicht 
akzeptiert. Alle Dateifunktionen von 
DOS 1.0 erwarten einen sauber vorfor¬ 
matierten Dateikontrollblock (FCB) für 
die Diskettenoperationen. In diesem 
FCB ist kein Platz für Subdirectory- 
Namen. Mit MS-DOS 2.0 führte Micro- 


COMAC-Programme — Ihr Weg in 
die Zukunft! 
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soft die hierarchischen Inhaltsverzeich¬ 
nisse ein, die sich in ihrer Funktionswei¬ 
se an UNIX anlehnen. Um aber voll 
kompatibel zu DOS 1.0 zu bleiben, blieb 
den 

Microsoft-Leuten nichts anderes übrig, 
als alle DOS-Dateifiinktionen ein zwei¬ 
tes mal zu programmieren. So kam es zu 
der seltsamen Situation, daß viele DOS- 
Systemfunktionen zweifach vorhanden 
sind: einmal FCB-gerecht, einmal für 
hierarchische Inhaltsverzeichnisse. Eine 
kurze Liste der DOS-Funktionen belegt 
das: 

FCB: UNIX; 

15 61 Datei öffnen 

16 62 Datei schließen 

19 65 Datei löschen 

23 86 Datei umbenennen 

Ein Programm kann sich nun aussuchen, 
welche der beiden Funktionsreihen es 
verwenden will. Moderne Programme 
werden natürlich die UNIX-ähnlichen 
Funktionen benutzen, aber ältere nutzen 
häufig noch die CP/M-kompatiblen Sy¬ 
stemaufrufe. 

Dennoch ist — hier am Beispiel Word¬ 
star gezeigt — noch nicht alles verloren. 
Man kann nämlich viele alte Programme 
so »austricksen«, daß man trotzdem Sub- 
directories verwenden kann. 

Die einfachste Lösung besteht darin, das 
jeweilige Programm mit all seinen zuge¬ 
hörigen Dateien in ein einzelnes Subdi¬ 
rectory zu kopieren. Dann macht MS- 
DOS den Programmen vor, das aktuel¬ 
le Subdirectory wäre die gesamte Disket¬ 
te. Das Programm sieht nur Dateien im 
aktiven Verzeichnis. 

Aber natürlich ist dann die vorher so 
schön ausgedachte Organisation wieder 
dahin. Erstrebenswert wäre es, Briefe, 
Rechnungen und Buchkapitel getrennt 
von Zeitschriftenmanuskripten auf der 
Diskette oder Festplatte aufzubewahren. 

Nun könnte man ja auf die Idee kommen 
und den PATH-String verwenden wol¬ 
len. Doch dieser ist lediglich bei der Su¬ 
che nach Programmdateien wirksam, 
nicht bei Datenfiles. So findet Wordstar 
die Textdateien nicht und — was noch 
schlimmer ist — auch nicht seine Over¬ 
lays, die von DOS auch nur als Datenda¬ 
teien betrachtet werden. 

Bis MS-DOS 2.11 mußten sich die Be¬ 
nutzer mit dieser Lage abfinden. Aber 


MS-DOS 3.2 (und jetzt auch PC-DOS 
3.3) besitzt noch einige selten verwende¬ 
te Utilities, deren wahre Bedeutung sich 
den meisten Anwendern verschlossen 
hat. Diese heißen ASSIGN, APPEND, 
JOIN und SUBST. 

In dieser Folge des Kurses lernen Sie 
ASSIGN und SUBST kennen. Die bei¬ 
den anderen Programme heben wir uns 
für die nächste Folge auf. 

SUBST, das steht für »to substitute« (»er¬ 
setzen«), ersetzt scheinbar Laufwerke 
durch Subdirectories. So können Sie zum 
Beispiel sagen, daß ein Zugriff auf das 
bisher nicht vorhandene Laufwerk E: 
stets auf das Verzeichnis 

C:\WS\TEXT\BRIEFE 

umgeleitet werden soll. Mit 

A>WSE:BRF1 

erreichen Sie dann die Datei 

C; \ WS\TEXT \BRIEFE\ BRFl. 

So verarbeitet Wordstar dann auf einmal 
doch hierarchische Verzeichnisse! 
SUBST besitzt die folgende Syntax: 

A>SUBSTE; C:\WS 

Nach diesem Befehl werden alle Zugriffe 
auf das Laufwerk E: in das Verzeichnis 
C: \ WS umgelenkt. Sie können sogar 
tatsächlich vorhandene Laufwerke vom 
System »abkoppeln«. Sofern irgend ein 
Programm dummerweise stets Dateien 
auf dem Laufwerk A; erwartet, Sie aber 
die viel schnellere Festplatte oder RAM- 
Diskette benutzen wollen, können Sie 
das mit SUBST erreichen: 

C>SUBSTA: C:\SIMUL-A 

Allerdings setzt Ihnen MS-DOS eine 
Grenze für die Laufwerksbuchstaben, 
die Sie verwenden dürfen. Denn MS- 
DOS reserviert normalerweise nur die 
Buchstaben »A« bis »E« als Laufwerks¬ 
kenner. Mit zwei Diskettenlaufwerken, 
einer Festplatte und einer RAM-Disk 
bleibt dann nur noch E: für SUBST frei. 
Das ist ein bißchen wenig. Ein Trick um¬ 
geht aber diese Lage. Sie müssen nur mit 
einem Texteditor die Datei CON¬ 
FIG.SYS von Ihrer DOS-Systemdiskette 
oder der Festplatte laden und um die fol¬ 
gende Zeile ergänzen: 

LASTDRrVE = Z 

Dann stehen Ihnen alle Laufwerksbuch¬ 
staben von A: bis Z: für SUBST zur Ver¬ 
fügung. Das dürfte für wirklich alle Fälle 
ausreichend sein. 


Ein Hinweis noch: Die Änderung von 
CONFIG.SYS wird erst nach dem Zu¬ 
rücksetzen des Computers und neuem 
Booten des Betriebssystems wirksam. 

Die Verbindung zu einem mit SUBST 
eingerichteten Scheinlaufwerk brechen 
Sie mit der Option /D (Delete) wieder ab. 
Hier erwartet SUBST lediglich den 
Buchstaben des Scheinlaufwerks, nicht 
auch noch das vorher spezifizierte Sub¬ 
directory. 


Und in DOS-Plus? 


Unter DOS-Plus ist das Programm 
SUBST nicht vorhanden. Etwas Ähnli¬ 
ches läßt sich aber durch den erweiterten 
CHDIR-Befehl erreichen. In DOS-Plus 
sind nur zwei Scheinlaufwerke vorhan¬ 
den. Sie besitzen die Kenner N: und O:. 

Mit CHDIR wird ihnen ein Subdirectory 
zugewiesen. Die folgende Syntax ist nur 
in DOS-Plus erlaubt: 

A > CHDIR N: = C: \ DOSPLUS \ UTIL 
A>CDN:=C:\DOSPLUS\UTIL 


Warum ASSIGN? 


Warum Microsoft neben SUBST auch 
noch das Programm ASSIGN zu MS- 
DOS 3.2 mitliefert, ist nicht ganz klar. 
Denn praktisch alle Aufgaben von AS¬ 
SIGN lassen sich auch mit SUBST lösen. 
ASSIGN ersetzt nicht ein Laufwerk 
durch ein Subdirectory, sondern durch 
ein anderes Laufwerk. Wollen Sie also 
alle Diskettenzugriffe von A: nach C: 
umleiten, schreiben Sie: 

A> ASSIGN A=C 

Wollen Sie eine derartige Zuordnung 
wieder aufheben, geben Sie ein: 

A> ASSIGN A=A 

Um alle vorher durchgeführten Zuord¬ 
nungen aufzuheben, rufen Sic ASSIGN 
ohne Parameter auf: 

A> ASSIGN 

Und schon wieder ist der Platz für die¬ 
sen Monat aufgebraucht. 

Nächstes Mal beschäftigen wir uns mit 
einigen weiteren Spezialprogrammen 
von MS-DOS und DOS-Plus, die das Ar¬ 
beiten mit hierarchischen Inhaltsver¬ 
zeichnissen einfacher machen. 

(M. Kotulla) 


102 PC 10’87 









Drum prüfe,wersich ewig bindet, 

7 7 ob sich nicht doch was Bessres findet. 
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Gefunden: 



Schneideruata SD24 


SD 24 -24-Nadel-Drucker von Schneider 
Data. Für den anspruchsvollen PC-Anwen- 
der bietet SchneiderData einen äußerst 
preiswerten Matrbcdrucker der Spitzen¬ 
klasse. 

Mit der hohen Schriftqualität, ähnlich 
eines Typenrad-Druckers und den vielfälti¬ 
gen Möglichkeiten des Matrixdruckers 
werden hier höchste Ansprüche erfüllt. 
Besondere Merkmale: 
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Schrifterten • Bedienung wichtiger Funk¬ 
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Äußerst leises Druckgeräusch ' Halbauto¬ 
matische Papierzufuhr ■ Automatischer 
Einzelblatteinzug optional - Traktor se¬ 
rienmäßig - 16-kB-Pufferspeicher - Mög¬ 
lichkeit der freien Zeichendefinition 
(Download) ■ Druckgeschwindigkeit ca. 
135 cps im EDV-Druck, 54 cps Im LQ- 
Druck - Zeichensatz und Befehlsstruktur • 
umschaltbar zwischen EPSON LQ1500 
und IBM-Graphikdrucker Modus - Inter¬ 
face; Centronics parallel. 
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Rindermarkt 8 • 8050 Freising 
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BASIC2 verständlich 

Folge 9 

Mittlerweile sind wir beim neunten Teil der Serie »BASIC2 verständlich« an¬ 
gelangt. Heute wollen wir uns unter anderem mit der Texiverarbeltung befas¬ 
sen. Ein sehr Interessantes Kapitel gibt es ebenfalls noch zu erledigen. Es han¬ 
delt sich dabei um die geheimnisvollen Metafile - Dateien, die Ich schon in ei¬ 
ner der früheren Folgen des BASIC2 Kurses angesprochen habe. 


Effekt: 0000001 

Effekt: 0000010 
Effekt: OOOOroO 
Effekt: 0001000 

Effekt: 1000000 

Ahb. 2 


Beginnen wir mit den Metaüles. Ich habe 
Ihnen bereits früher erklärt, wie Sie ver¬ 
schiedene Geräte unter BASIC2. besser 
unter GEM, ansteuem. Ebenso habe ich 
Ihnen versprochen, die Metadateien in 
einem der folgenden Teile zu erwähnen. 
Da das BASIC2, genauer die BASIC2 
Version 1.12, den Metatreiber falsch an¬ 
steuert. hat es einige Komplikationen ge¬ 
geben. Der Rechner ist bei einigen Text¬ 
ausgaben jeweils abgestürzt. Dieser Feh¬ 
ler wurde nun behoben. Der Grund hier¬ 
für lag eindeutig an der Text - 
Cursor-Position. Die Koordinaten des 
Textcursors nahmen nach fast jedem 
Print - Aufruf meist negative Koordina¬ 
ten an. Durch eine winzige Routine — 
die in diesem Teil mit abgedruckt wird 
- wurde das Problem gelöst. 


Das Metafile 


Erklären wir aber erst einmal, sozusagen 
als Exkurs, was ein Metafile überhaupt 


ist. Bei fast allen BASIC — Dialekten ha¬ 
ben Sie die Chance. Graphiken etc. ab¬ 
zuspeichern. BASIC2 kann dies jedoch 
nur auf Umwegen. Mit einem Metafile, 
das die Extension ».GEM« trägt, kann 
man auf einfache Weise Dateien erstel¬ 
len. die sich anschließend von sogenann¬ 
ten objektorientierten GEM - Program¬ 
men wieder einladen lassen. GEM - 
Draw und GEM — Output sind solche 
Programme. Mit anderen Worten: Sie 
haben die Chance, Ihre Graphik, die Sie 
unter BASIC2 entwickelt haben, mit 
GEM — Draw beziehungsweise mit 
GEM — Output zu verarbeiten. 

Erinnern Sie sich noch, welche Geräte¬ 
nummern für die Metafiles reserviert 
sind? Es waren die Nummern 31 —40. 
Wenn wir die Datei »Assign.Sys« auf der 
GEM — Diskette genauer betrachten, 
stellen wir fest, daß bereits ein Treiber 
— der »Metafilö« — vorhanden ist. Er 
wurde mit der Nummer 31 installiert. 
Dies ist also die Gerätenummer, die Sie 
in Ihren Programmen verwenden 
müssen. 


Öffnen Sie das Gerät wie folgt; 

OPEN #stream DEVICE 31 

Das Metafile wurde nun geöffnet. Wie¬ 
der eine weniger erfreuliche Nachricht 
für PC-Besitzer mit »nur« 512 Kilobyte 
Hauptspeicher; Dieses Kommando ist 
nur wirksam, wenn Sie Ihren PC auf 640 
Kilobytes aufgerüstet haben. GEM benö¬ 
tigt diesen Speicherplatz zum Einladen 
des Treibers. Es kann auch zu Kompli¬ 
kationen kommen, wenn Sie zu viele Ac¬ 
cessoires installiert haben. 


Systemvariablen bei Meta 


Erscheint im Dialog-Fenster nicht die 
Fehlermeldung »GEM-Fehler«, so wur¬ 
de alles vom Rechner richtig durchge¬ 
führt. Es werden nun alle Ausgaben, die 
über den Kanal »stream« führen, direkt 
in das Metafile geleitet. Lassen Sie uns 
die Systemvariablen untersuchen: 

Xvirtual 5000 
Yvirtual 5000 
Xdevice 32768 
Ydevice 32768 
Xpixel 0.152587891 
Ypixel 0.152587891 
Xcell 1.22070313 
Ycell 1.22070313 
Xmetres 3.2768 
Ymetres 3.2768 

Das Koordinatensystem von Meta ist 
also quadratisch und besitzt sehr merk¬ 
würdige Dimensionen. 

Geben Sie nun einige Graphikbefehle auf 
das Metafile aus. Beachten Sie bitte die 
Größe der virtuellen Koordinaten. Durch 
Verschließen des Streams mit dem »Clo- 
se«-Kommando wird eine Datei auf Dis¬ 
kette mit dem Namen »Gemfile.Gem« 
geschrieben. Dies ist nun unser Metafi¬ 
le. Der Name des Files läßt sich leider 
nicht manipulieren. 

Es ist von großer Wichtigkeit, daß Sie 
nun dieses File umbenennen. Die Exten¬ 
sion ».GEM« sollte nicht entfernt wer¬ 
den; Das Umbenennen ist de,shalb not- 
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wendig, da GEM sonst nach nochmali¬ 
gem Aufrufen des Metatreibers diesen 
Dateinamen löschen würde. 


BASIC2 steuert Meta falsch an! 


Wie schon erwähnt, hat BASIC2 einige 
Bugs, was die Metadateiansteuerung an¬ 
geht. Zum Beispiel wird der Textcursor 
bei der Textausgabe nach jedem Ge¬ 
brauch des Print-Kommandos falsch po¬ 
sitioniert. In den meisten Fällen wird die 
Cursorposition negativ, was natürlich 
falsch ist. Geben Sie nun einen Graphik- 
Befehl ein, so stürzt der Rechner fast 
immmer ab. Könnte man diesen Fehler 
nicht korrigieren, so wäre das Metafile 
selbstverständlich unbrauchbar. Es gibt 
eine Lösung. Nach jedem Aufruf eines 
»Print« Kommandos springen Sie das 

Unterprogramm »meta_^print« an. In 

dieser Routine wird mit der Funktion 
“ABS“ das Vorzeichen der Cursorposi¬ 
tion geändert. Zusätzlich wurde noch 
eine Sicherheitsabfrage eingefügt, wel¬ 
che überprüft, ob die Cursorposition 
nicht den virtuellen Bildschirm über¬ 
steigt. Durch dieses Programm wird die¬ 
ser Fehler behoben. 

Nach dem Motto »einmal ist keinmal« 
existieren noch ein paar weitere Fehler. 
Die so beliebte Turtle Graphik ist mit 
dem Metafile nicht verwendbar. Das 
heißt, wenn Sie Meta ansteuem, haben 
Sie keine Möglichkeit, Turtle-Graphik 
zu verwenden. 


GEM und BASIC2 


Die Programmierer von BASIC2 haben 
sich offenbar nicht besonders um GEM- 
Vereinbarungen gekümmert. Füllt man 
eine Box aus, so ist diese für GEM nicht 
mehr nur ein Befehl, sondern zwei. Dies 
kann dazu fiihren, daß die Umrandung 
der Box einfach verschwindet. Zum 
Glück gibt es im Befehlssatz des BASIC2 
Interpreters den Befehl »Shape«. Mit Hil¬ 
fe dieses Kommandos können Sie die 
»Box« simulieren. Diese Routine wurde 
auch mit abgedruckt und sollte von Ihnen 
bezüglich der »Fill«-Befehle noch erwei¬ 
tert werden. Dies können Sie mit Hilfe 
des Set-Befehles erreichen. 

Trotz dieser ganzen Fehler, die hoffent¬ 
lich in den Update Versionen behoben 
sein werden — ist das Metafile eine 
wichtige Einrichtung für den ambitio¬ 
nierten BASIC2-Programmierer. 

Das abgedruckte Demonstrations Pro¬ 
gramm zu den Metafiles sollten Sie ab¬ 
tippen. Dieses Listing erzeugt ein Meta¬ 
file mit dem Namen »Metademo.Gern«. 
Da ich annehme, daß nicht jeder von Ih¬ 


nen über das Programm GEM-Draw 
verfügt, will ich das Laden eines Mela- 
files am Beispiel »Output« beschreiben. 
Befinden Sie sich unter GEM Output, so 
fügen Sie bitte den oben erwähnten Da¬ 
teinamen in die Liste mit ein. Anschlies¬ 
send starten Sie die Ausgabe auf dem 
Bildschirm. Nach kurzer Zeit wird das 
Metafile von Diskette geladen; das 
Demo-Bild, welches von unserem 
BASIC2 Programm erzeugt worden ist, 
erscheint auf dem Bildschirm. Toll, es 
hat also funktioniert. Es kann sein, daß 
es noch einige Graphikbefehle gibt, die 
ebenfalls Fehler auftreten lassen können. 
Bei der Vielzahl der Graphik-Befehle, 
die BASIC2 besitzt, ist es für den einzel¬ 
nen schwer, diese alle zu testen. Ich will 
Sie, liebe Leser, dazu auffordem, uns 
über eventuelle negative Erfahrungen 
über diese Thematik zu schreiben. 


Bugs, Bugs, Bugs... 

Da wir gerade bei dem Thema Fehler 
sind: BASIC2 ist — das werden Sie be¬ 
stimmt schon des Öfteren festgestellt ha¬ 
ben — nicht ganz fehlerfrei. Einen schö¬ 
nen Effekt erzielt folgende Prozedur, die 
sehr peinlich für den Programmierer 
werden kann, wenn er sein Programm 
vorher nicht abgespeichert hat. Versu¬ 
chen Sie Folgendes: 

PRINT POINTS(20) 

STRING$(4096,65) 

Es werden im gerade aktuellen Fenster 
4096 »A« Zeichen ausgedruckt. Der 
Rechner ist hiermit einige Zeit beschäf¬ 
tigt. Währenddessen klicken Sie ein Pull- 
downmenü nach dem anderen an und 
wählen verschiedene Menüpunkte aus. 
Bemerken Sie, was passiert ist? Der 
Schneider PC arbeitet nicht mehr mit der 
Maus. Das Nagetier zeigt zwar noch eine 
Reaktion, führt aber keine Befehle mehr 
aus. Wenn vorher das BASIC Programm 
nicht abgespeichert worden ist, gibt es 
keine Rettung mehr. Das GEM muß neu 
gebootet werden. Abb.l veranschaulicht 
diesen mehr oder weniger witzigen Vor¬ 
fall. Auch zu dieser Thematik will ich Sie 
wieder zum Schreiben auffordem! 
Soviel zu den Metafiles. Sicherlich ha¬ 
ben Sie den Befehl zur Abfrage der 
Maustaste - Button — schon des Öfte¬ 
ren verwendet. Dieser Befehl birgt aber 
noch einige Geheimnisse, die hier gelüf¬ 
tet werden sollen. 


Button 


Den aktuellen Zustand der linken Maus¬ 
taste erhalten Sie mit der Funktion: 
BUTTON (1) 


Den der rechten Ta.ste mit: 
BUTTON(2) 

Diese Funktion bedient sich der soge¬ 
nannten booleschen Konstanten. Wird 
der Knopf des Nagetiers nicht gedrückt, 
so wird der Wert minus eins oder True 
zurückgeliefert. Sobald Sie aber die Ta¬ 
ste betätigen, ändert sich der Wert auf 
False, also auf Null. Besonders geeignet 
für eine Warteschleife, die solange 
durchlaufen wird, bis ein Benutzer die 
linke Maustaste gedrückt hat, ist die Re- 
peat-Until-Schleife. Das kleine, aber 
wirkungsvolle Programm würde wie 
folgt aussehen: 

REPEAT UNTIL BUTrON(l)=FALSE 

Die Konstante »False» könnte durch 
»Off« oder durch eine Null ersetzt 
werden. 

Die Funktion »Button« liefert andere In¬ 
teger-Werte zurück, wenn der Benutzer 
gleichzeitig die Tasten Alt, Ctrl oder 
Shift betätigt. Es wird dabei zwischen 
linker und rechter Shift-Taste unterschie¬ 
den. Die Werte kann man am besten deu¬ 
ten, wenn man sie Bitweise betrachtet. 
Dabei kommt man zu folgendem Er¬ 
gebnis: 

Bit 0: Shift-T^te rechts 
Bit 1: Shift-Taste links 
Bit 2: Ctrl-Taste 
Bit 3: Alt-Taste 

Die entsprechende Maustaste muß natür¬ 
lich jeweils auch gedrückt werden. Die 
Bits Nummer vier bis sieben werden bei 
dieser Funktion nicht genutzt. 


Version feststellen 


Ein weiteres Kommando dieser Art stellt 
die Funktion 

VERSION (wert) 


System Schriftgröße: 28 

System Schriftgröße; 20 

System Schrtttgröße: 14 
synm Sdwingre&«: 10 

Swiss Schriftgröße: 28 

Swiss Schriftgröße: 20 

SwIss Schriftgröße: 14 
SMiM ScM«gr(>»r 10 

Mn 7 

Dutch Schrif^röße: 28 

Dutch Schriftgiöße: 20 

Dutch Schrif^öpe: 14 

Duli^ Sdtrjfliiip«: IQ 
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Swiss Schriftgrößs; 36 

Swiss Schriftgröße: 28 

Swiss Schfiflgföße: 20 

Swiss SchriftgrößQ; 18 

Svi^ss Schriftgröße: u 

5»« SCMÄS'eS«; 10 

Dutch Schriftgröße! 36 


lA. 



Abb. 4 


Abb. 5 


dar. Der Wert des Befehls darf Integer- 
Zahlen von Null bis einschließlich vier 
annehmen. Das Kommando dient zum 
Feststellen der Version von BASIC2. Bei 
der Version 1.12 liefert das Kommando 
folgende Werte: 

16 

0 

1 

2 

2818 

Wie diese Zahlen zu deuten sind, kann 
ich Ihnen leider nicht verraten. Bei an¬ 
deren Versionen werden diese aber 
höchstwahrscheinlich größere Werte an¬ 
nehmen. Wollen wir es abwarten! 

In Folge acht haben wir die Speicherklas- 
sen besprochen. Sie dienten uns zur De¬ 
finition eines Records. Bei BASIC2 kann 
man hinter der Dimensionierung einer 
Variablen gleichermaßen die Typenklas¬ 
se mit angeben. Wollen Sie die Variable 
»a« zum Beispiel von eins bis 10000 als 
Byte dimensionieren, so ist folgende Be¬ 
fehlsfolge anzuwenden: 

DIMa(l TO 10000) BYTE 

Welche Werte ein Byte annehmen darf, 
habe ich bereits in Teil acht erwähnt. 
Schlagen Sie nötigenfalls nach. 
Belegen Sie die Variable »a« nun mit ei¬ 
ner Fließkommazahl, so werden die 
Kommastellen einfach vernachlässigt. 

a(l)=3.12345 

ergibt demnach also den Wert drei. Liegt 
der Skalar außerhalb der Speicherklas¬ 
se, so wird die Fehlermeldung »Wert au¬ 
ßerhalb des Speicherklassenbercichs« 
ausgedruckt. Der Fehlercode für diese 
Meldung lautet 114. 

Zweidimensionale Variablen sind bei 
den jetzigen Dialekten keine Seltenheit 
mehr. BASIC2 erlaubt aber die Verwal¬ 
tung von dreidimensionalen Variablen 


oder Zeichenketten. Einer Anweisung 
wie etwa 

DIM aCl TO 3, 2 TO 4, 1 TO 5) 
steht also nichts mehr im Wege. 


Text-Handling 


Für Schriftausgabe in Text-Windows 
gibt es einige hilfreiche Kommandos. 
Der Befehl beginnt immer mit dem Kom¬ 
mando »Text«. Es existieren vier ver¬ 
schiedene Syntaxformen: 

TEXT #stream. CLEAR zusertz 
TEXT #stream, FEED zellen 
TEXT #stream. DELETE 
TEXT #stream, DELETE LINE 
TEXT #stream, INSERT LINE 

Die Zusätze, welche sich nur auf die 
Kommandofolge »Text Clear« beziehen, 
können wie folgt lauten: 

EOL, BOL, EOS, BOS, SCREEN. LINE 

EOL löscht von der aktuellen Cursorpo¬ 
sition bis zum Ende der Zeile. Bei BOL 
wird vom Anfang der Zeile bis zur Cur¬ 
sorposition der Windowinhalt gelöscht. 
EOS entfernt alle Zeichen ab der Cursor¬ 
position. Geben Sie »Screen« an, wird 
das gesamte Window gelöscht. Schließ¬ 
lich noch »Line«, hier wird die Zeile ge¬ 
löscht, in der sich der Textcursor gera¬ 
de befindet. 

Den Cursor in einem Window können 
Sic mit dem Kommando 

LOCATE #stream,x;y 

setzen. Beachten Sie auch die Position 
des Cursors nach einer Textausgabe. 
Mit dem Befehl »Text Feed« wird wieder 
von der aktuellen Cursorposition, der 
Cursor und der Windowinhalt bei einem 
negativen Wert nach oben - und beim 


positiven nach unten - gerollt. Gegebe¬ 
nenfalls wird das Window gerollt. 
»Text Delete« löscht von der rechten Sei¬ 
te der Position des Cursors ein Zeichen. 
Der übrige Text wird dabei nachge¬ 
zogen. 

Fügen Sie nach »Delete« noch den Suf¬ 
fix »Line« ein, so wird nicht ein Zeichen, 
sondern eine ganze Zeile entfernt. 

Zu guter Letzt gibt cs noch »Text Insert 
Line«. Hier wird eine ganze Zeile einge¬ 
fügt. »Text Insert« alleine führt zu einer 
Fehlermeldung! 

Die Zeile der aktuellen TexteursorPosi- 
tion liefert Ihnen die Funktion 

VPOS(xstream) 

Die Spaltenkoordinate hingegen erhalten 
Sie mit 

POS(xstream) 

Ein sehr schöner Zusatzbefehl zum 
Print-Kommando stellt 

EFFECTS(bitmuster) 

dar. Das Bitmuster kann eine Länge von 
sieben Bits annehmen, was den dezima¬ 
len Wert von Null bis 127 entspricht. 
»Effects« gibt dem Programmierer die 
Chance, Text in verschiedenen Formen 
auszudrucken. Dabei kann er zum Bei¬ 
spiel zwischen Kursiv-Schrift und unter¬ 
strichener Ausgabe wählen. Die Bits 
0,1,2,3 und 6 haben bei diesem Kom¬ 
mando folgende Bedeutung: 

Bit 0 Fettschrift 

Bit 1 »leichte« Schrift 

Bit 2 Kursivschrift 

Bit 3 Unterstrichen 

Bit 6 Negative Darsteiiung 

Diese Auslistung wird Ihnen in Abb. 2 
noch einmal verdeutlicht. Ein kleines 
Demonstrationsprogramm zu diesem 
Kommando finden Sie in Listing Num¬ 
mer zwei. 
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Auch können Sie dem Print Kommando 
noch folgenden Befehl anhängen: 

POINTS(größe) 

Mit diesem Kommando werden ver¬ 
schiedene Schriftgrößen angewählt. 
Selbstverständlich muß die gewählte 
Größe dem Bildschirmtreiber bekannt 
sein. 

Um diese Größen festzustellen, gibt es 
die Funktion 

POINTSIZE( # stream,schriit,größe) 

Es wird jeweils die nächstkleinere 
Schriftgröße ausgegeben. Eine Demon¬ 
stration dieses Befehls haben Sie mit dem 
BASIC2-Listing Nummer drei. 

Die Länge einer Zeichenkette in User- 
Koordinaten errechnet Ihnen das Kom¬ 
mando 

EXTENT ( # stream.FONTCl), 
POINTS(i), zeichenketteS) 

Unbedingt wichtig ist die Angabe der Pa¬ 
rameter »Font« und »Points«. 

Einen weiteren Zusatz zum PrintKom- 
mando will ich Ihnen in diesem Teil nicht 
vorenthalten. Es ist der Zusatz 

MODE wert 


Mit Hilfe dieses Kommandos haben Sie 
wahlweise die Chance im 

Ersatz-Modus 

Transparent-Modus 

XOR-Modus 

Invertierter-Transparent Modus 

Der sogenannte »Ersatz-Modus« ist der 
eigentliche Standardmodus. Er wird 
durch die Eingabe von 

PRINT MODE(l) 

erreicht. Der Hintergrund, also Text und 
Graphik, wird bei einer Textausgabe ge¬ 
löscht. 

Der Transparent-Modus erhält als Para¬ 
meter den Wert zwei. Im Transparent- 
Modus wird die Schrift, wie es der Name 
schon vermuten läßt, Transparent ausge¬ 
geben. Das bedeutet mit anderen Wor¬ 
ten, daß der Hintergrund nur dann ge¬ 
löscht wird, wenn dieser mit einer Schrift 
bedeckt worden ist. 

Der XOR-Modus dürfte Ihnen bereits 
von anderen BASIC-Dialekten her be¬ 
kannt sein. Bei diesem Modus wird die 


Schrift wieder gelöscht, wenn Sie den 
gleichen Text wiederholt ausgeben. 
Folglich druckt 

PRINT AT( 1; 1) MODE(3) "Test" 

auf den Bildschirm das Wort »Test« aus. 
Wollen Sie nun dies wieder löschen, so 
brauchen Sie das Kommando nur zu re¬ 
petieren. 

PRINT AT(1; 1) MODE(3) "Test" 

und das Wort ist verschwunden, ohne 
daß der Hintergrund »beschädigt« 
wurde. 

Der Modus Nummer vier — der »Inver¬ 
tierte Transparent-Modus« wird gerne 
dazu verwendet, Textausgaben beson¬ 
ders vorzuheben. 

Schon sind wir am Ende des neunten Tei¬ 
les unserer BAS1C2-Serie angelangt. In 
der nächsten Folge werden wir uns den 
schnellen und komfortablen ISAM Da¬ 
teien zuwenden. 

(Christian Eißner) 
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HARD-DISC-KIT: 

• HD mit Controller und Kabel 

• Stahlblechgehäuse mit Lüfter 
und Blende in Schneider-Beige! 


HD-CARD: 

• Speziell für PC 

• Steckerkompatibel 

• komplett montiert auf Alurahmen 


PROFI-BOX: 

• Externe HD 20 MB mit Streamer 20 MB 
in einem zusätzlichen PC-Gehäuse 

FD-3: 

• Original Laufwerk mit Blende 
in Schneider-Beige! 

RAM-Erweiterung: 


Bildschirmfilter: 

• s/w und color 


20 MB 

DM 999,- 


sFr. 899,-/öS 6995,- 

30 MB 

DM 1199,- 


sFr. 1049,-/öS 8395,- 

20 MB 

DM 899,- 


sFr. 899,-/öS 1049,- 

30 MB 

DM 999,- 


sFr. 999,-/öS 6995,- 

DM 2498,- 

sFr. 2498,-/öS 19950,- 

DM 398,- 

sFr. 359,-/öS2995,- 

DM 79,- 

sFr. 89,-/öS 695,- 

DM 59,- 

sFr. 59,-/öS 475,- 


HANDLERANFRAGEN SIND WILLKOMMEN! 

Das komplette ABD-Zubehör ist bei den Schneider-Computer- 
Händlern sowie bei Hertie, Horten, Kaufhof und Ringfoto erhältlich. 

Alle unsere Produkte werden zu Tagespreisen gehandelt. 

Deshalb können die Preise tatsächlich niedriger sein als genannt I 


Deutschland: 

ABO Electronic 
Zettachring 12 
7000 Stuttgart 80 
Telefon 0711-7150037 


Schweiz: 

Swicom SA 
Route de Boujean 
CH-2502 Biel-Bienne 
Telefon (032)422784 
oder 231833 


Österreich; 

Wagner Electronics 
Hauptstraße 171 
3001 Mauerbach 
Telefon 02 22-97 21 66 
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REM +-+ 

REM * Schneider FC International 
REM * BASIC2 Rurs by + 

REM + Christian EiSner 87’ + 

REM 4 Metafile Deoonstration + 

REM 4-4 


CLEAR RESET 
DIM Z(1 TO 8) 
kanal^S 

OPEN #)canal DEVICE 31 
GOSUB hptprg 
CLOSE Ikanal 

NAME "GEMFILE.GEM" AS "METÄTEST.GEM" 

END 

LABEL hptprg 

FOR durchgang=l TO 15 

GOSUB Zufall 

SRAPE «kanal,z(l};z(2),z(3);z(4),z(5);z(6) , 
z(7);z(8) COLOUR {färbe) FILL VITH muster 
NEXT durchgang 
RETURN 

LABEL Zufall 
FOR isl TO 8 
z(i)=IKT(RND(5000)) 

NEXT i 

mu8ter»INT(RND(38)) 

facbe<NT(RND{14)4l) 

RETURN 


REM 4-+ 

REM 4 Schneider PC International 4 
REM 4 BASIC2 Kurs by 4 
REH 4 Christian Eifiner 87’ 4 
REM 4 Fehlerbehandlung fär Meta 4 
REM 4-+ 


LABEL iBeta_print 
xv»XVIRTUAL(ikanal) 
yv=YVIRTUAL(#kanal) 
xcp»XPO$(«kanal) 
ycp-YPOS(fkanal) 

IF xcp>xv THEN xcp=l 
IF ycp)yv THEN ycp=l 
xcpsABS(xcp):ycp*ABS(ycp) 

MOVE fkanal,xcp;ycp 
RETURN 

LABEL pseudo_box 

br=br4xko 

hö=hö4yko 

IF h6>YVIRTüAL(lkanal) THEN err_flag=TRUE 
IF br>XVIRTÜAL(#kanal) THEN ert_flag=TRUE 
SHAPE fkanal,xko;yko,br;yko,br;hö,xko;hö,xko;yko 
RETURN 


REM 4-4 

REM 4 Schneider PC International 4 
REM 4 BASIC2 Kurs by 4 
REM 4 Christian EiSner 87' 4 
REN 4 "Effects-Demo" auf Drucker 4 
REM 4-4 


CLEAR RESET 
DIM bitSd TO 5) 

GOSUB bit 
OPEN #5 DEVICE 21 
FOR i=l TO 5 
bit=VAL("fcX"4bitS(i)) 
aS-"E£fekt: "4bitS(i} 

PRINT f5,ADJUST(28) FONT(l) EFFECTS(bit) a$ 
NEXT i 
CLOSE «5 
END 


Listing Basic2 


LABEL bit 

FOR i=l TO 5 
READ bit$(i) 

NEXT 1 
RETURN 

DATA 0000001,0000010,0000100 
DATA 0001000,1000000 


REM 4-4 

REM 4 Schneider International 4 
REM 4 BAS1C2 Kurs 4 
REM 4 by Christian Eifiner 87’ 4 
REM 4 Scbriften-Demo 4 
REM 4 - 4 


CLEAR RESET 

DIN artd TO d,l TO 10),naie$(l TO 5) 

GOSUB info 
aus=5 

OPEN fS DEVICE 21 

PRINT «aus,CHR$(13)4CHR$(10}4CHR${10) 
anzahl«0 
REPEAT 

anzahl-anzahl4l 

nameS(anzahl)sFONT$(anzahl) 

UNTIL name${anzahl)»”’' 

FOR 8Chrift=l TO anzahl-1 
GOSUB art_belegen 
NEXT Schrift 
GOSUB drucken 
CLOSE 15 
END 

LABEL art.belegen 
zAblersO 

durch«POINTSIZE(faus,Schrift,255) 

REPEAT 

gröfie-FOINTSIZE (laus,schrift,durch) 

IF ggtöfieogrdfie THEN GOSUB okay 
ggröfie-gröfie 
durch«durch-l 
UNTIL durch=0 
RETURN 

LABEL okay 

zähler=z&hler4i 

art(schrift,Zähler)-gröfie 

RETURN 

LABEL drucken 

FOR schrift=l TO anzahl-l 
zähler-0 
REPEAT 

zählerszähler4l 
gröfie>art(schrift,Zähler) 

IF gröfieOO THEN SET laus FONT(schrift) ,POINTS(grö8e) 
GOSUB zeichenkette 
UNTIL gröfie=0 

PRINT laus,CHR$(13)4CHR$(10)4CHR$(10) 

NEXT Schrift 
RETURN 

LABEL zeichenkette 
n$»naae$(schritt) 

nS-n$4" Schri£tgrÖfie:’'4STR$ (gröfie) 

IF grOSeOO THEN PRINT faus,n$ 

RETURN 

LABEL info 

a^ALERT 1 TEXT "Bitte Drucker ONLINE schalten", 

"Programm benötigt 640Kb!","Bereit zum Start?" 

BUTTON RETURN "Okay" ,’’Abbrechen’’ 

IF a=2 THEN END 
RETURN 
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- DATABOX 


Die monatlich erscheinende Databox beinhaltet Leserprogram- 
me sowie deren komplette Dokumentation. Hier finden Sie Pro¬ 
gramme unter BASIC 2, PASCAL oder lauffähige EXB-FUes. Alle 
Dateien können über ein komfortables Shell-Programm ange¬ 
sprochen werden. 

Die PC Databox 10/87 enthält: 

1. Alle Programme aus dem BASIC2-Kurs BASIC2-Programme 

2. Alle Programme zum Beitrag »Menuegenerator^ 
BASIC2-Programme bzw. Text 

3. Eine Uhr unter BASIC2: Analog und präzise; die Anleitung 
macht dieses Programm zu einer anschaulichen Demo zum 
Umgang mit der internen Uhr Ihres PC! 
BASIC2-Programme bzw. Text 

4. BCi-DEMO 

Dies ist ein Demo-Programm des neuen BCI-PASCAL- 
CompHers. Dieser versteht sowohl deutsch als auch englisch 
und stellt einen neuen Leistungsstandard der auf dem Markt 
befindlichen PASCAL-Compieler dar... 

Weitere Informationen: DMV, Redaktion PASCAL. 
Ausführbare EXE-Dateien bzw. deren PASCAL-Quellcode 

5. Verschiebefix 

Eine superschnelle und komfortable Version des bekannten 
Denkspieles. Bedienung per Cursortasten. 

Ausführbare COM-Datei, PASCAL-Quellcode und Begleittext. 

Alle Programme mit Dokumentation auf Disk. 


Die JOYCE- 
DATABOX ! 

Jetzt gibt’s die Databox-Dlsk auch 
für den Joyce und außerdem als 
praktisches Databox-Abo. 

Alle Joyce-Programme aus dem Heft 
finden Sie »ready to run^ auf unserer 
praktischen Databox. Zusätzlich ent¬ 
hält die Joyce-Databox noch Bonus- 
Programme. 


Inhalt der Joyce-Databox 10/87: 

Querverweislisten für BASIC-Pro- 
gramme: alle benötigten Dateien und 
Programme 

Digitaluhr für Joyce mit Weckfunk¬ 
tion: Ready-to-run-Programm. 

Bonusprogramm: Astro 
Sie sind Händler in einem kleinen 
Sonnensystem. Steigern Sie den 
Profit Ihrer Gesellschaften durch ge¬ 
schickte Transaktionen... 


Elmelbexug: 

Einzelbezugspreis für DATABDX: 

Diskette 3"/PC 5 1/4“ 24. - DM zzgl. 3. - DM 
Porto/Verp. 

(im Ausland zzgl. 5, - DM Porto/Verpackung). 

Das Databox-Abo kostet: 

Als Diskette für 1/2 Jahr (6 Lieferungen): 


Im Inland und ViJest-Berlin . 150, - DM 

Im europäischen Ausland . 160, - DM 

Im außereuropäischen Ausland .750,- DM 

Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und Vi/est-Berlin . 300,- DM 


Im europäischen Ausland . 320, - DM 

Im außereuropäischen Ausland 360, - DM 

In den vorgenannten Preisen sind die 
Versand- und Verpackungskosten ent¬ 
halten. 

Bitte benutzen Sie für Ihre Bestellung die 
Abo-Karte 

Zahlungswelae: 

Am einfachsten per Vorkasse (Verrech¬ 
nungsscheck) oder als Nachnahme zuzüg¬ 
lich der Nachnahmegebühr 

(In das Ausland ist Nachnahme nicht mög¬ 
lich) 



BesteHkarte ausfüllen und absenden an: 

DMV Daten- und Medien-Verlagsgesellschaft mbH 
Postfach 250 ■ Fuldaer Str. 6 
3440 Eschwege ■ Tel. (05651) 8702 
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Hard- und Softwarevoraussetzungen 
(Mindestausstattung) 

— Schneider PC 1512 mit 1 LW 

— GEM + Locomotive BASIC 2 
Das Programm gliedert sich in 2 Teile; 
1) Der eigentliche MENÜGENERA¬ 
TOR (MENGEN.BAS) 2) Eine Routine, 
mittels derer dann entwickelte Menüs 
aufgerufen werden (MENMAUS.BAS). 


Programmablauf 

Nach Start des Programmes MEN¬ 
GEN.BAS wird man aufgefordert, die 
Anzahl der Menüpunkte, die das fertige 
Menü ausweisen soll, anzugeben. Dabei 
ist zu beachten, daß auch Trennungsli¬ 
nien (markiert mit mitgerechnet 
werden. Soll das Menü also beispiels¬ 
weise vier Unterprogramme steuern, und 
die einzelnen Menüpunkte mit einer 
Trcnnungslinie versehen sein, so wäre 
die Frage nach der Anzalil der Menü¬ 
punkte mit 7 zu beantworten. Nach Ein¬ 
gabe der Anzahl folgt die Benennung der 
einzelnen Menüpunkte. Hierbei ist ledig¬ 
lich zu beachten, daß eine Trcnnungsli¬ 
nie lediglich mit einem markiert 
wird. 

Also zum Beispiel; 

Menüpunkt 1: Daten eingeben 
Menüpunkt 2: 

Menüpunkt 3: Daten selektieren 
Menüpunkt 4: * 

Menüpunkt 5: Programmende 
Nach erfolgreicher Eingabe der Menü- 
punktc kann man die Schriftart für ange¬ 
klickte Optionen wählen. Dazu öffnet 
sich ein weiteres Fenster, das verschie- 


Datei Progranw Editieren Schrift Farben Huster Linien Fenster BftS!C2 
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So sieht ihr fertiges Nenü aus. 

Iw Übspeichern klicken Sie bitte 
die Haustaste. 


Hl mHL 


r 

mii 
MJJ 


MHL 3 



Abb. 2 


MENUGENERA TOR 

ein Werkzeug unter BASIC2 


Das Programm ermöglicht es auf einfache Weise, selbstdefinierte Menüs un¬ 
ter der Benutzeroberfläche GEM in Locomotive BASIC 2 zu erstellen. Diese 
Menüs können später in selbsterstellten Programmen (z.B. Dateiverwal¬ 
tung..) Anwendung finden. 



Datei PrograMii Editieren Schrift Farben Nüster Linien Fenster BAS1C2 
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Ergebnis-1 

♦ 
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jeben Sie nun die einzelnen Punkte einieine Trennungslinie Markieren Sie 

Mit eineM (1 t) . 

1 .Henüpunkt :?ENDE 

2 .Henüpunkt :?« 

3 .Henüpunkt :?MHL 1 

4 .Henüpunkt :?» 

5 .Henüpunkt :?UAHL 2 
( .Henüpunkt :?« 

7 .Henüpunkt :?MHL 3 

k 



jingaben korrekt (J/N) ? 






T 



i 

1 V 

A 



Abb. 1 


dene Schriftarten mit Nummern zeigt. 
Hat man sich für eine Art entschieden, ist 
lediglich die entsprechende Nummer ein¬ 
zugeben. Schließlich ist noch die Form 
des Mauszeigers auszuwählen. Dazu ein¬ 
fach die linke Maustaste gedrückt halten, 
bis die gewünschte Form erreicht ist und 
diese dann mit der [SPACEJ- Taste be¬ 
stätigen. Zum Abschluß ist noch die Me- 
nueüberschrift anzugeben und der 
Name, unter dem das fertige Menü ab¬ 
gespeichert werden soll. Diesen Namen 
sollte man sich gut überlegen und mer¬ 
ken, denn er wird später in der Routine 
MENMAUS.BAS in die Variable 
[datei$] übergeben. 

Damit wären wir schon beim zweiten 
Teil, nämlich bei der Unterroutine 
MENMAUS.BAS. Diese Routine muß 
in Hauptprogramme eingebunden wer¬ 
den, von denen aus die Menüsteuerung 
erfolgen soll. Hier sind eigentlich nur 2 
Variablen von Wichtigkeit für den An¬ 
wender; 
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1) Die Variable (doteiS). Wie oben 
schon erwähnt, enthält sie den Filena¬ 
men, der die Daten der Menüpunkte ent¬ 
hält. 

2) Die Variable [wh). In dieser Variablen 
werden die einzelnen Werte für Unterpro¬ 
gramme (Labels) übergeben. Die entspre¬ 
chende Programmzeile in Ihrem Haupt¬ 
programm könnte z.B. so aussehen: 


»On Wh goto label 1 .menue 1, 
label2, menuel,. 

Die Konstante [menuel] entspricht einer 
Trennungslinie im Menü und bewirkt, 
daß nicht zu einem falschen Label ge¬ 
sprungen wird. 

ALSO: Überall dort, wo im Menü eine 
Trennungslinie erscheint, wird nicht zu 


einem Label gesprungen, sondern wie¬ 
der zu [menuelJ. 

Den Abschluß der einzelnen Labels 
bildet: 

(gotomenuel) 

ln diesem Sinne wünsche ich dem Leser 
eine erfolgreiche Menüerstellung. 

(J. Willmann) 


»*«*«*in«*««<rtf»**i»*********»*«»*««*«****»»»* 

RQj **» prograniD Mengen.bas Menügenerator * 

RIM *** Autor : J.Villmaiin 01/1987 *********** 

gm ir******************************************* 

am. 

GOSUB datas:CU)SE #l:CeiM II WIHO» 1 
OiOSE WINDOtf 1:CLC6E unaX« 2:CinSE WINDCW 3:C10SE WINDCW 4 
tflNKW fl <»EN:WINa« FÜLLtSCRHM fl 'nXTiCLS #1 
OCTTO eingabe 
LABIL DSDuel 

PRIHT #1 AT!l;2)”So sieht ihr fertiges Menü aus." 

PRUn* #1 AT(l;3)"Ziin Abspeichem klicken Sie bitte" 
PRBfT #1 AT(l:4)'’die Maustaste." 

CLOSE: #4:(^ 14 UIHDCM 4: 

SCRUN #4 GRAPHICS maxi*8 nXED,anz*8 FKEL: 

SET f4 FCWT ItSBT #4 POINTS 10 
PC» i=l TO anz: 

PRIWr f4,AT(l;i);EFraCTS(s(i)):nKnueS(i);:NEXT 
WntDCW #4 PLACE 350,90 
WINK« 14 Tm£ mennamS 
WINDOW 14 OPIN 
VINDC« 14 HKISE enou 
LABEL mauie 

: nip<: iii=FAl^E 
KEPQVr 

an=nu:mi=spa-INr( (YM0USE-YPLACE(#4) )/8) 

IF tu>anz OR nu<l ‘nCM GCSUB ausiGCTO kew 
IF s{nu)=2 THEN OÄUB aus:G0TO kew 
xw=aaJSE-XFljACE(f4) 

IF xM>XWINDCW(f4) CR 5W<0 THIK GOSOB aus:GOT0 kew 
iji=TRUE 

IF aiHiu 1HIN GOTO kew 
GOSUB nED 

PRIwr #4, AT(l;nu);EFFECTS(schrift>:[aenueS(nu);:wt™i 
LAKEL kew 

iwnL BirrrcH>-i 
OCTO speichern 
LABEL aus 

IF in nSM GOSUB nmo 
in=FAI£E: wh=<): REIURN 
LABEL mos 

IF >*<>0 TOIN PRINT 14, AT(l;wh);inenueS('*); 

RITURN 

LABEL eingabe 

WINDOW tl CURSCR 0M:WINDC« ICUSE 0 
REPEAT 
GOSUB titel 

HUNT AT(1;2)"Wieviele Punkte soll ihr Maiü beinhalten 
(niax.13,incl.Trennungslinien) ’';:INFVT anz 
wm anz<14 
DIM nienue$(aiiz),s(anz) 

PRINT AT(l;2)"Geben Sie nun die einzeln«» Punkte ein; 
eine Trennungslinie markieren Sie " 

PRINT AT(l;3)"iiät einen {1 !) ." 

FCR i=l TO anz 

PRINT AT(3;i+3)i;".Menpunkt rlNPOT inenueS(i) 

IF itöJueS(i)="*" IHEN s(i)=2ELSE s(i)=0: 
tBanieS{i)=CHRS(255)-HnenueS(i)-K3JRS(255) 

IF liM(in«utö$(i)) >niaxi ‘IHEM maxi=LIM(iDenue$(i}) 

NEST 

PRlNr:PlUNr"Eingaben torrdtt (J/N) ?":aS*”" 

REPEAT 

aS«INKN/S 

UWTIL aS=”j" CR 3$='^’ 

IF aS="n" liaM OSRrCLS flrGOTO eingabe 
n* masdciS TTOT iiiaxi=15 
P» i*! TO anz 

IF raen\ie${i)<>’’*" TffiN ICR k=UN(inenüeS(i)) TO naxi-1: 
inenueS(il=®äiueS(i)+CHRS(255) :NEST 
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IF iiienueS(i)="*" TKEN FC» ks2 TO maxi: 

menueS(i) =wenueS(i)+"*": NEOT 

NEST i 

IF anz=4 THIW spa^nz+1 ELSE IF an2=3 TTfflJ spa=anz+2 
ir an2=2 raiW spa=anz+3 else sp^anz 
CLS fliGOSüB titel 

PRINT AT{2;2)"Wählen Sie jetzt die Schriftart" 
raiNT AT(2;3)"für angeklickte Optiemen aus." 

PRINT AT(2;4)"(Sidie Fenster 'Schriftart')” 

CS>BJ #4 WINDOW 4 :CLS #4:SCRa>I #4 (3(APHICS 175 FIXED,165 7Tm>: 
WINDOW 14 HjACE 400,40:W1NDC« #4 Tnu: "Schri£tart":WINDCW #4 
t=l:tlsl9:t2=l:t3=l 
REPEAT 

ICR schrift=t TO tl 

PRINT 14 IFFEXn^(schrift+35) AT(t2;t31"Schriff':schrift+35 

t3=t3+l 

HEXT 

t=19:t1»37:t2=t2+10:t3=1 

UNTIL t2=21 

REPEAT 

WINDOW #1 CURSCR CU 

PRINT fl AT(2;6)"Ausgewählte Schrift Nr.:";:INPNr schrift 
IWriL schrift>35 AND sdirift<73 
CLS «4:WIND0W 14 OiDSE 
CLS #l:WINIjOW #1 CURSC» C*F:G0affi titel 
FRINT #1 AT(2;2)"Wlhl«i Sie jetzt die Form des Mauszeigers 
ln Ihren Menue." 

PRINT fl ÄT(2:3)"Die Auswahl erfolgt durch Mausklicken." 

PRUfT fl AT(2;4)"Falls die gewünschte Form gewählt ist, 
bestätigen Sie mit 'SPACE'" 

RIPEÄT 

nii?mrt-l;IF rao)7 TOIN ocfO 
IF BVnCN>-l THSi rtDU=iio:WINDCM #1 »XJSE nou: 
lOR Jpl TO SOOiNBCT: 

UNTIL IM(E!/S=affiS(32) 

OÄ fl:WINrOU fl MKJSE 0;GC6UB titel 
REPIÄT 

WINDOW #1 CURSCR CW 

PRINT #1 AT(2;8)"Geben sie bitte den Menfltitel ein 
(inax.ll Zeicha») ";;INfVr meinamS 
UNTIL LEN(mennam$)<ll 

PRINT #1 AT(2rll)"lÄter welchem Namen soll Ihr Menü 
abgespeichert w«r<ten ?" 

REKST 

INFVT #1 AT(3;13);dateiS 
UNTIL Ii}l(dateiS)<7 
CLS #1:WIND0W fl CURSCR CSF 
GOSUB titel:G0TO meiuel 
LABEL speidiem 

C»OI fe.CVTPUT datei$ 

PRINT #6,anz,iicu,sd)rlft,spa,niaxi 

PRINT #6,nennaniS 

ICR i=l TO anz 

PRINT f6,inenueS{i):NEXT 

FC® i=l TO anz 

FRINT #6,5(1) 

HEXT 
CLOSE #6 

CLS #1:G0SÜB titel 

PRINT fl EETECTS{65) AT(30;15)"Prograniiiande" 

IMD 

UBIL titel 

PRINT fl EFFECTS(33) AT(20;l)"Menügenerator";na$ 

RETURN 
ÜBEL datas 

DATA 255,189,255,48,49,47,56,55,256,74,46,87,105,108,108, 
109,97,110,110 

K» d=l TO 19:READ r:naS=naS4CHRS(r) :NEXT 
REIURN 


Listing Menuegenerator 


10’87 PC 111 









[—Professional Computing 


********tt**1i**it**ihHrt**m*1t*»*1,*H***ttt1,*t,*1tittk******* 

RK *** PrograntD Mainaus.bas ****************************** 
REM *** Muss in später« Bauptprogram eingebunden werden * 

ft**ikik******iHt******]H[*ii***i]k*«*ft****ik***ik««*Mr*XMSK*** 

RIM *** Autca: : J-Wülmaim 01/1987 *********************** 
******************************************************* 


CU^ VINDCW liOOSE VINDCV 2:CU>SE VIMIXW 3:CÜDSE UQDXIV 4 
******************************************************* 

RfM *** Hier Variable 'dateiS' definieren ***************** 

**ikMi**Ak**ikA»********ik***********************«***k**** 

#6 INPI7T dateiS 

INFUT H.anz,neu,sdirift,spa,maxi 
DIM taaiueS (anz) ,s(anz} 

INFVT i6,aiainatiiS 
PCR ial TO anz 
DiPirr |6,nienue$(i):KSCr 
FCR i=l TO anz 
Dffur If6,s{i) 

NECT 
CUlSE 16 

******************************************************* 

REX *** Eigentlicher Meniiaufbau *************************** 
*** * *** ** ««««* « * * *«* ******** «*«** *********«**«**»«»» **« 

LABEL naiuel 

a/:^ I4:CS>EX #4 UINDOU 4:SCR£E» t4 GRAPHICS maxi*8 FIXED, 
anz*8 mEDiSET #4 JWT liSBT #4 POHTTS 10 

TOR i=l TO anziPRINT #4,AT(l:i);EirECTS(s(i));inaiueS(i);:NEiCT 
VIMDOU #4 PLACE 150,90 
WINDOW 114 Tni£ mennamS 
UINDCM «4 

WIHDOU 14 10(^ ooi 
LABEL aenue 
wh=0: nu=^: in=FRl^ 

RS>£AT 

an=nu 

nu*spa-lNr{ (Ytt]ÜSE-VPLACE(#4) )/8) 

C Qu>an 2 CR nu<l IHEM GO^ aus:0(7TO kew 
IF s(nu)=2 TOEN GOSB ausiGCTO kew 
XH=»IXSE-XHACE(lt4) 

ir XH>XWlNDCW{t4) CR xw<0 THEX GOSUB aus:G0T0 kew 
in=TRUE 

C an^nu IHEX GüTTD kew 
GOIUB nmo 

FRIOT 84, AT(l;nu)rEiyECTS(sdirift);insnieS(Tiu)::iA=nu 
lABEL kew 
irm. BUITCN)-! 

IF wh^ THEX GCnO netiue 

***A*****M*****M******M****A*M**«******ik**********ik 

RHi *** Äb hier stebeo die Ijaiels ************************* 

RIM *** z.Bsp. 'Cn >ih goto labeil,inenitelrlabel2,nienuel***** 

*AAA******«**AA**************«t******AA**ft***Mi********* 

lABEL aus 

17 in IXEN GOSUB tno 
iA=FALSE:idti^ 

RFHJRN 
LABEL niDO 

U idiOO TKEM PRIWr 84, AT(lrwb) rmenueS (»dl); 

RETORN 



**************************************************** 

*** programn Dananen.bas ****•***«»*»***«********»*» 

]^Q{ *** ************************************************ 

k*************************************************** 

REM *** Autor : J.Willjnann 01/1987 ******************** 
**************************************************** 

OßSE «1 

dJDSE VDffiCW 1:CLDSE WINDCW 2:CLOSB WINDOW 3:CUÄE WINDOW 4 
**************************************<************* 

dateiS="test" 

AAikAikMrAAAAAAAAAAA eljlleSen *''^**********^**^* 

CREM 86 MVT dateiS 

INPUT 86,anz,iKu,Schrift,spa.maxL 

DIH iDenue$(anz),s(anz) 

INFUT tä.mainamS 
FOR i=l TO anz 
INPUT l6,aenueS(i) :NEZCr 
FOR i®l TO anz 
INPUT 86,s(i) 

NEST 
d/DSE 86 

**************************************************** 
***************** tia^aufbau *********************** 
••••***•**«****«■*•«*«***« 1 ************************* 

LABEL nenuel 

OOGE 84:OPEX «4 WINDOW 4:SCRE1N 84 (3)APHICS iGaxi*8 FIXES, 
anz*8 nXES-.SET #4 FCWT IzSET #4 POINTS 10 

FCR i*l TO anzrPRINr 84,AT(l;i) :EFrECTS(s(i)) :iDenueS(i): rNEOT 
WINDCU 84 PLACE 150,90 
UINDCW #4 TTTIE nennamS 
WMX» 84 OPEN 
UIKDCM #4 IClU^ ODU 
LABEL menue 
wh=0: nu=0: in=E711^ 

REPEAT 

an=nu 

nu=spa-lMr( {Y1«XJSE-YPLACE(#4) )/8) 

IF nu>anz OR nu<l ITLEN GCSie aus:GCTTO kew 
IF s(nu)=2 THEN GOSUB ausiGOTO kew 
Xw=X«XJSE-XPLACE(#4) 

IF xw>XWINDCW(84) CR xw<0 THEN GCÄUB ausiGCTO kew 
in=raüE 

IF an=nu THEN GOTO kew 
GOSUB niD 

PRIWr 84, AT(l;nu);IFFECTS(schrift);iDenueS(nu)r:»di=nu 
lABEL kew 
irra. EMITCN)-! 

IF wii=0 TUEN GOTO menue 

»««»•»*«■•* » »«**** *****■•*••• 

*** Ab hier std^en die Labels ********************** 

OH vdi GCTO wahll,ineniiel,Hahl2,iAenuel,wahl3 

LABEL wahll 

CREM #1 WDffiOW 1:WINDCW #1 CREHtWINDOW EULL: 

SCREEM #1 TO(T;CI£ #1 

PRIKT #1, AT(22;2) "Sie habai Menüpimkt 1 aufgenifen!" 
REPEATilOTIL BÜTKN>-1 
CLOSE #1:G0TO menuel 

LABEL wahl2 

OPOJ 81 VINDW liWINDOW 81 CREMrWDJDCV FULL: 

SCREEM 81 TGCTlCLS 81 

PRIKT #1, ÄT(22;2) "Sie haben Menüpunkt 2 aufgerufen!" 
REfBtTrlWriL BOTICN)-! 

QiOSE #l:GOTO menuel 

LABEL Hahl3 

CSraN 81 WINDCM ItWINDOW 81 (REW:WINEIOW FULL: 

SCREEM II TTSTtCLS #1 

PRUTT 81, AT(22;2) "Prcgraimende!" 

REPEAT:lMnL BLNTON)-! 

CLOSE 81:EMD 

LABEL aus 

ff in “niliM GOSUB me 
in=FAI£E:vdi=0 
RFIURN 

LABEL me 

ff whoO IHEN PRINT #4, AT(lrwh) ;itienueS(*di): 

REIURN 

Listing Menuegenerator 
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Gute Aussichten für LocoScripter 

LOCOSCRIPT 2 KURZ BELICHTET 


Angekündigt war es seit langem, das 
»neue« LocoScript; jetzt liegt zu¬ 
nächst einmal die englische Fassung 
vor, genannt Loco^ript 2. Mit der 
folgenden kurzen Übersicht soll dem 
deutschen PCW-Benutzer ein erster 
Vorgeschmack dessen vermittelt 
werden, was er hoffentlich bald 
statt seines LocoScript 1 wird einset- 
zen können. 


Geschwindigkeit 


Gespannt war man vor allem darauf, ob 
es bei Locomotive Software gelingen 
würde, in punkto Geschwindigkeit Ver¬ 
besserungen zu erzielen. Ich habe hier¬ 
zu das Programm anhand eines Textes 
von 40 KByte diversen einfachen Tests 
unterzogen. Eines der Ergebnisse: Es 
dauert nur 1 min. 40 sec. gegenüber 3 
min. 15 sec. beider älteren LocoScript- 
Version, bis der Cursor am Ende des Do¬ 
kumentes ankommt. Auch beim Finden/ 
Ersetzen oder Abspeichem ist das neue 
LocoScript deutlich schneller. Da aber 
die Gmndcharakteristik des Programmes 
weiterhin durch die ständige Refomiatie- 
rung bestimmt wird, ist es immer noch 
erheblich langsamer als zum Beispiel 
Prowort. 


Hilfsmeldungen 


Bei Cursor-Bewegungen über mehrere 
Seiten — man kann jetzt per Menue an 
jede gewünschte Seite im Text springen 
— wird übrigens der Text nicht wie bis¬ 
her »gescrollt«. Statt dessen gibt ein in 
Bildschirmmitte eingeblendetes Fenster 
fortlaufend an, welche Seite gerade neu 
formatiert wird. LocoScript 2 enthält 
viele derartige Meldungen, und einige 
davon duplizieren unnötigerweise An¬ 
zeigen, die ohnehin am Bildschirmkopf 


erscheinen und verdecken momentan den 
Text. Das erhöht gewiß den Komfort und 
vermeidet Fehler beim Anfänger, bringt 
aber andererseits auch manche Verzöge¬ 
rung mit sich. Der sogenannte Experten- 
Modus hilft diese nicht in allen Fällen 
vermeiden. Womit wir beim Thema Be¬ 
nutzerfreundlichkeit wären. 


Benutzerfreundlichkeit 


Mit seiner Menuesteuerung war ja schon 
das bisherige LocoScript zumindest im 
Editiermodus sehr komfortabel, aber 
man hat sich für die neue Version noch 
Einiges mehr einlällen lassen, um dem 
Standard anderer Programme näherzu- 
kommen. 

So sind Formatierung und Kopieren von 
Disketten nunmehr direkt aus dem Pro¬ 
gramm heraus möglich, was zum Bei¬ 
spiel beim Einrichten der Startdiskette 
äußerst vorteilhaft ist. 


Fremddrucker 


Mit der Möglichkeit, Fremddrucker an¬ 
zusteuern, ist ein weiterer großer Man¬ 
ge! beseitigt. Die Systemdiskette enthält 
mehrere Druckertreiber, und eine sepa¬ 
rate Datei bietet zusätzlich zum entspre¬ 
chenden Kapitel des Handbuchs eine Li¬ 
ste aller direkt einsetzbaren Drucker und 
eventuell erforderlichen Voreinstel¬ 
lungen. 

Dabei ist man seiteas Locomotive ehrlich 
genug zuzugeben, daß (derzeit noch) 
nicht absolut alle Features von Loco¬ 
Script auf jedem der angegebenen 
Drucker reproduzierbar sind. Das 
Druck-Menue gestaltet jetzt übrigens 
auch den Ausdruck von Mehrfach-Ko¬ 
pien und die Vorwahl der linken Rand¬ 
einstellung zusätzlich zur Abspeicherung 
mit dem Dokument. 


Papierformate 


Wesentlich vereinfacht ist die Wahl von 
Papierformaten, die z.B. als A4, A5, 
oder 3“ Etiketten benannt und fest ge¬ 
speichert sind, also nicht wie bisher be¬ 
rechnet werden müssen. Man speichert 
seine Papiertype mit dem Dokument ab, 
und das Programm überprüft zu Beginn 
des Ausdmeks, ob eventuell der Drucker 
auf ein anderes Format eingestellt ist und 
gibt dann dem Benutzer Gelegenheit, die 
richtige Anpassung vorzunehmen. Für 
Endlospapier ist das englische Pro¬ 
gramm auf das bei uns ungebräuchliche 
Format 11“ eingestellt, was man bei der 
»Eindeutschung« sicher nicht belassen 
wird. 


Weitere Verbesserungen 


Um einige Optionen erweitert wurde das 
Suchen/Finden-Menue, und der Einsatz 
von Blocks und Sätzen ist wesentlich er¬ 
leichtert: sie müssen nicht mehr zunächst 
abgespeichert werden, sondern bleiben 
bis zum Abschalten des PCW im Spei¬ 
cher, können somit direkt von einem Do¬ 
kument in ein zweites übertragen wer¬ 
den. Zudem kann man Sätze und Blocks 
über ein neues Menue mit ihren Namen 
und den ersten Wörtern zur Anzeige 
bringen und — falls gewünscht — in die¬ 
sem Menue löschen. 

In bisherigen LocoScript-Versionen war 
es ziemlich frustrierend, bei der Zusam¬ 
menstellung von mehreren separaten Ka¬ 
piteln zu einem Buchtext — vielleicht 
noch mit zusätzlichen Fotoseiten — die 
korrekte fortlaufende Seitenzählung si- 
chcrzustellen. Hier hat das neue Loco¬ 
Script zu anderen Programmen aufge¬ 
schlossen, indem es nun bei Vorwahl der 




Ahb.l: Umwandlung von LocoScriptl-Dateien in LocoScriptZ-Format 
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Abb.2: Neu - die Möglichkeit, Disketten zu formatieren oder komplett zu ko¬ 
pieren 
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Abb.3:Neu — externe Drucker können bedient werden; viele Druckertreiber 
inclusiv 



Abb.4: Neu — verbesserte Druckeransteuerung 


Reihenfolge der Einzeltexte diesen die 
richtigen Seitenzahlen zuweist. 
Schließlich ist auch die Auswahl an ver¬ 
fügbaren Zeichen auf mehr als 400 ver¬ 
größert worden, von denen jedes wieder¬ 
um in Verbindung mit 15 verschiedenen 
Akzenten eingesetzt werden kann. Wer 
will, kann somit auch kyrillische Texte 
verfassen. 


Layout-Erstellung vereinfacht 

Eine völlige Umstellung gegenüber der 
bisherigen Version erfolgte im Loco- 
Script 2 bezüglich der Einrichtung und 
Speicherung von Textlayouts, sowie in 
der Festlegung von Kopf- und Fußzeilen. 
Hier wird der LocoScripter zu völligem 
Umdenken gezwungen, was aber durch 
eine detaillierte Darstellung im Hand¬ 
buch sehr erleichtert wird. Darauf näher 
einzugehen würde den Rahmen dieses 
Kurzberichtes sprengen. Summarisch 
kann dazu gesagt werden, daß die Um¬ 
stellung einen der oft störenden 
Schwachpunkte des LocoScript 1 besei¬ 
tigt: Änderung eines Layouts während 


der Arbeit im Text führt nun nicht mehr 
zur Neuformatierung aller Textabschnit¬ 
te, die dieses Layout verwenden, son¬ 
dern wirkt sich lediglich auf den gerade 
bearbeiteten Abschnitt aus. Damit ent¬ 
fällt gleichzeitig ein weiterer gravieren¬ 
der Nachteü von LocoScript 1: Beim Zu¬ 
sammenbringen von zwei Texten oder 
Kopieren von Textstcllen wird nicht 
mehr der eingefügte Text nach den im 
Zieltext identisch bezeichneten Layouts 
umformatiert, sondern die Layouts des 
Quelltextes bleiben so gewünscht - für 
die betreffenden Textstellen unverändert 
erhalten. Zwei weitere wichtige Punkte 
zum Abschluß: 


Übernahme von Texten 
aus LocoScript 1 


In LocoScript 1 erstellte Texte müssen 
zur Anpassung an LocoScript 2 einmal 
unter letzterem überarbeitet werden. Der 
Ablauf ist weitgehend automatisiert, wo¬ 
bei der Benutzer durch das Programm 
auf eventuell erforderliche Eingriffe zur 
Neu-EinsteUung von Papierformat und 


Drucker-Steuerung korrekt hingewiesen 
wird. Das Verfahren ist absolut problem¬ 
los und narrensicher. Einmal in Loco¬ 
Script 2 editierte Texte können danach 
nicht mehr in LocoScript 1 bearbeitet 
werden, es sei denn auf dem Wege über 
die Trans-Dateien. 

Hier sei am Rande erwähnt, daß die bis¬ 
herigen Versionen der Zusatzprogram¬ 
me LocoSpell und LocoMail unter Loco¬ 
Script 2 nicht verwendbar sind. Man 
muß sich, wie in England für die uns vor¬ 
liegende Version, einen Tausch-Service 
erhoffen. 


Dokumentation 


Das Handbuch für LocoScript 1 galt viel¬ 
fach als Muster dafür, wie eine Pro¬ 
gramm-Einführung besser nicht ausse- 
hen sollte. Das Handbuch zum neuen Lo¬ 
coScript ist im Gegensatz dazu eine Of¬ 
fenbarung. Bleibt zu hoffen, daß es - 
ebenso wie das Programm selbst - bei der 
Übertragung ins Deutsche seine klare 
Verständlichkeit behält. 

(Dr. K.Stratemann) 


ES GIBT VIELE 

COMPUTERZEITSCHRIFTEN... 

PASCAL IST KOMPETENT IN 
SPRACHEN UNO PROGRAMMIERUNG! 

HINEINSCHAUEN LOHNT SICH! 

PASCAL GIBT ES BEI 

IHREM ZEITSCHRIFTENHANDLER 


Oder direkt \mn 

DMV GmbH • PASCAL Internationai 
Postfach 250' 3440 Eschwege ■ Tel.: (0 56 51) 87 02 
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Programmbeschreibung 


Sozusagen die »Keimzelle« des Digital- 
uhr-Programms war das im JOYCE- 
Sonderheft veröffentlichte Beispiel für 
die Uhrabfrage von R. Herrmann. Aber 
wie auf den Bildschirm bringen, das war 
nun die Frage. Außerdem hat es mir kei¬ 
ne Ruhe gelassen, daß die Uhr nur rich¬ 
tig lief, wenn sie vorher mit DATE. 
COM gestellt worden war. Dies zu än¬ 
dern war jedoch einfacher als zunächst 


angenommen. Es mußten nur die den 
PEEKs in den Zeilen 1240-1270 entspre¬ 
chenden POKEs einschließlich der Um¬ 
wandlung der Zeitangaben in binär co¬ 
dierte Dezimalzahlen entwickelt werden. 
Diese findet man in den Zeilen 3120 und 
3160-3180 sowie 3710. Bei der Bild¬ 
schirmaufbereitung sind die in den Zei¬ 
len ab 4000 enthaltenen Definitionen der 
verschiedenen »Escape-Folgen« und an¬ 
derer Textvariablen hilfreich. Auch die 
Veröffentlichung von M. Anton im JOY- 
CE-Sonderheft hinsichtlich der Verände¬ 


rung des Bildschirmzeichensatzes ist eine 
gute Möglichkeit, das Display zu verbes¬ 
sern. Man beachte den Unterschied, 
wenn man das Programm einmal mit ei¬ 
ner durch ein vorgesetztes »REM« ent¬ 
schärften Zeile 90 laufen läßt! Das Zei¬ 
chen mit dem ASCII-Code 35, das [ # ], 
wird nämlich durch das Unterprogramm 
»Sonderzeichen« ab Zeile 5000 zu einem 
Rechteck in Form des Cursors verwan¬ 
delt und bei Programmende wieder in 
seine übliche Form zurückversetzt. 

Wie läuft nun das Programm ab? Es ist 
ja im großen und ganzen selbsterklärend, 
aber ich will doch einige Hinweise ge¬ 
ben. Zunächst erscheint das Anfangsme¬ 
nü, welches fünf verschiedene Optionen 
bietet. Zwei weitere verschweigt es: 
Durch Eingabe eines kleinen [hj läßt sich 
die Bildschirmfarbe auf hell und mit ei¬ 
nem kleinen [d] zurück auf dunkel schal¬ 
ten. Wenn man jetzt nach dem Einschal¬ 
ten der Uhr die Option fl wählt, kann 
man zunächst die Uhrzeit stellen. Falls 
sie bereits stimmt, kommt man mit RE¬ 
TURN zum nächsten Schritt. Zu beach¬ 
ten ist, daß bei der Zeiteingabc jedes be¬ 
liebige Zeichen (außer dem Komma) als 
Trennzeichen verwendet werden kann. 

Der Kalender wird in drei Schritten ge¬ 
stellt, nämlich zuerst das Jahr, dann der 
Monat und dann der Tag. Die nächsten 
zehn Jahre geht das auch alles so weiter, 
aber nach Ablauf des Jahres 1997 späte¬ 
stens muß die Zeile 1080 geändert wer¬ 
den. Dort ist nämlich für die Jahre 1987 
bis 1997 die Zahl der Tage definiert, die 
bei Beginn des jeweiligen Jahres seit Ab¬ 
lauf des Jahres 1977 vergangen sind. Auf 
dieser Basis nämlich ermittelt JOYCE 
das aktuelle Datum, und so läßt sich also 
durch Vergleich der aktuellen Tagezahl 
mit den Werten der Zeile 1080 feststel¬ 
len, welches Jahr das Display anzeigen 
muß (siehe Zeile 1460). Nun bleibt mir 
eigentlich nur noch zu erwähnen, daß die 
Weckerfunktion ihre Aufgabe nur erfül¬ 
len kann, wenn das Display eingeschal¬ 
tet ist. (Das hätte ich natürlich noch än¬ 
dern können..., aber hier ist der Einfalls- 
reichtum der Leser gefordert!) Die in ei¬ 
nigen Zeilen auftretenden kursiven [P] 
und [7) sind die eckigen Klammem (EX¬ 
TRA-A/EXTRA-ÜI) 


(M. Meyer) 


Einen Tag weiter: 

[+] drücken ! 

Einen Tag zurück: 

t-l drücken ! 

Kalender richtig: 

Exil drücken ' 



Hier wird das Datum eingestellt 


f7 

~ ühr einschalten 

fS 

' Uhr ausschalten 

n 

- Weckzeit wählen 

n 

-* Uhrzeit stellen 

im 

* Prograftft beenden 


IH:E0:E1 


Wecker; 

Weckzeit; 


Ein 

14;aa; 


Die Uhrzeit wird angezeigt; der Wecker ist aktiv... 
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LISTING >WECKER <, REMARK = )’<. 


<59> 1300 speicher»FRB("") 



<77> 1310 stelle*l+VAL(LEFT$(8td$,l)):0N stelle GOSUB 1 

< 0> 10.. 


560,1580,1600:stdl$=stelle$ 

<17> 20.. '#i M Ä L L A R D-B A S I C ## 


(79) 1320 stelle-l-t-VAL(RIGHTS(std$, 1)) :ON stelle GOSUB 

<55> 30.. '##. DIGITAL-UHR. ## 


1560,1580,1600,1620,1640,1660,1680,1700,1720,1740: 

< 5> 40.. H I T.. W E C K E R.. f# 


8td2$-stelle$ 

<96> 50.. ■##.. Martin Meyer.. 5/87.. ## 


<25> 1330 stelle*l-tVAL(LEFT$(minS,l)):ON stelle GOSUB 1 

< 5> 60.. 


560,1580,1600,1620,1640,1660:ininlS»stelle$ 

<75> 70.. ' 


( 6> 1340 stelle>l-»-VAL(RIGBT$(min$,l)):ON stelle GOSUB 

<40> 80.. OPTION RUN 


1560,1580,1600,1620,1640,1660,1680,1700,1720,1740: 

<74> 90.. GOSUB 5000 


oin2$-stelleS 

<60> 100. GOSUB 4000 


<24> 1350 stelle-l-tVAL(LEFT$(sec$,l}):ON stelle GOSUB 1 

<40> 110. PRINT feldexS+clsS+sdS+clS 


560,1580,1600,1620,1640,1660:secl$:=stelle$'- 

<22> 120. PRINT zeileis+"... f7.. -. Uhr. einschalten.. 


< 5> 1360 stelle«l-t-VAL(RIGHT$(sec$,l}}:ON stelle GOSUB 



1560,1580,1600,1620,1640,1660,1680,1700,1720,1740: 

<10> 130. PRINT zeile2$+"... f5.. -. Uhr. ausschalten.. 


sec2$B8telle$ 



<55> 1370 PRINT feld.stdlS-tstdl5;feld.std2$4-std25;feld. 

<66) 140. PRINT zeile3S+"... f3.. -. Weckzeit, wählen.. 


miDl$'»'iinl$;feld.min2$-»’nin2$;feld.secl$-)-secl$;feld 



.sec2S+sec2$'i'feld0S 

(34) 150. PRINT zeile4S+”... fl.. -. Uhrzeit, stellen.. 


<62> 1380 secaltS-secS 



<31> 1390 IF weckerS*"Ein" THEN IF stdS=weck.std$ THEN 

<13> 160. PRINT zeile5S+".. EXIT. -. Programm beenden.. 


IF Bin$»veck.liiin$ THEN IF sec$-weck.sec$ THEN VHIL 



E INKEY$*”":PRINT CHRS(7);:HEND 

<69> 170. funktionS=’”’;WHILE funktionS="" 


<19> 1400 WEND 

<40> 180. funktionS=INPUTS(l>:WEND 


(44) 1410 PRINT feldlS-^clsS 

(88) 190. IF funktionS*CHRS(16) THEN PRINT feldOS;:GOSU 


<80> 1420 RETURN 

6 1000 


< 1) 1430 ■ 

(57> 200. IF funktionS=CHRS(17) THEN PRINT feldOS;:GOSÜ 


<76> 1440 jahr%*1986 

B 2000:GOTO 110 


(75) 1450 FOR kalender%*l TO 11 

<12> 210. IF funktionS=CHR$(2€) THEN PRINT feldOS;:GOSU 


<10> 1460 IF tagezahl%>tagezahl%(kalender%) THEN jahr%s 

B 3000:GOTO 110 


jabr%-t-l :ta9erest%=tagezafal%-tagezahl%(kalender%) 

<35> 220. IF funktion$=CHRS(27) THEN PRINT feldexS+clsS 


ELSE 1480 

+sdS+czS;GOTO 270 


(12) 1470 NEXT 

<36> 230. IF funktionS=CHRS{1041 THEN PRINT shS 


(28) 1480 IF jahr%/4=INT(jahr%/4) THEN tage%(2)=29 ELSE 

<67) 240. IF funktionS=CHR$(100) THEN PRINT sdS 


tage%(2)-28 

( 1> 250. GOTO 170 


< 8> 1490 FOR monat%*l TO 12 

(88) 260. ■ 


<30> 1500 IF tagerest%<-tage%(iiionat%)THEN monat$-noaat$ 

<96> 270. ende=l:GOSUB 5000;MEMORY JiHF605:END 


(monat%):GOTO 1530 

(92) 280. ’ 


<61> 1510 tagerest%-tagerest%-tage%(Donat%) 

<22) 1000 ’########### Uhr »tu######**# 


<98> 1520 NEXT 

<86> 1010 ’ 


<80> 1530 PRINT feld.datumS;invl$;" "jLEFTS(woch.tagS(t 

<87> 1020 RESTORE 1080 


agezahl% MOD 7),12);USING"##S";tagerest%;:PR1NT 

<54> 1030 FOR r%=l TO 11:READ tagezahl%(r%):NEXT 


";monatS; jahr%;inv0S-t-feldOS 

<85> 1040 FOR r%=l TO 12:READ [i!onatS(r%) ;NEXT 


<78> 1540 RETURN. 

(73) 1050 FOR r%=l TO 12:READ tage%(r%}:NEXT 


< 9> 1550 ’ 

(68) 1060 FOR r%=0 TO 6:READ woch.tagS(r%):NEXT 


<24> 1560 stelle$«null$ 

< 5> 1070 ■ 


(97) 1570 RETURN 

<37> 1080 DATA 3287.3652,4018,4383,4748,5113,5479,5844, 


<73> 1580 stelle$~einsS 

6209,6574,6940 


< 4> 1590 RETURN 

(31) 1090 DATA "JAN.","FEB.","MARZ","APR.","MAI "."JUNI 


<43> 1600 stelle$-zwei5 



<81> 1610 RETURN 

<10> 1100 DATA "JULI","AUG.","SEP.","OKT.","NOV.","DEZ. 


<62> 1620 stelle$-drei$ 

" 


<87> 1630 RETURN 

(97) 1110 DATA 31,28,31,30,31,30,31,31,30,31,30,31 


<41> 1640 8telle$~vier$ 

< 8> 1120 DATA "Sonnabend, ","Sonntag,.. "."Montag,... 


<93> 1650 RETURN 

"."Dienstag,, " 


<25> 1660 stelle$»fuenf$ 

(68) 1130 DATA "Mittwoch,. ","Donnerstag,","Freitag,.. 


< 0> 1670 RETURN 



<73> 1680 stelle$«sechsS 

<97> 1140 ’ 


< 6> 1690 RETURN 

<10> 1150 PRINT rNposS(16,32)+FNinvS(SPACES{2)) 


(14) 1700 stelleS^siebS 

<73> 1160 PRINT FNposS(19,32)+FNinvS(SPACES(2)) 


<83> 1710 RETURN 

(53> 1170 PRINT FNposS(16,56)+FNinvS(SPACES(2)) 


(32) 1720 stelleS=achtS 

<17> 1180 PRINT FNposS(19,56)+FNinv$(SPACES(2)) 


(89) 1730 RETURN 

<8l> 1190 IF weck6rS*"Ein"THEN PRINT FNposS(28,54)+"Wec 


<59> 1740 stelleS=neunS 

ker:- Ein" ELSE PRINT FNposS(28,54)+"Wecker:... 


<95> 1750 RETURN 

. Aus":GOTO 1220 


(16) 1760 ’ 

< 8> 1200 PRINT FNpos$(29.54)+"Weckzeit:.. "+weck.std$+ 


<28> 2000 '«#»#1111* Hecker ff#»#»####»«« 

": "■»•weck. minS-»-": "-»-weck. secS 


<87> 2010 ’ 

<90> 1210 ’ 


<48> 2020 PRINT zeilel$-*-"Wecker einschalten:. ML drück 

<37> 1220 funktionS="";WHILE funktionS<>CHR$(19) AND fu 


en": 

nktionS<>CHR$(17) ÄND funktionS<>CHRS(26) AND funk 


<20> 2030 PRINT zeile2S+SPACES(35) 

tionS <>CHRS(27) 


(65) 2040 PRINT zeile3S-^”Wecket ausschalten:. A-t drück 

(97) 1230 funktionS=INKEYS 


en"; 

<19> 1240 secS=HEXS((PEEK(&HFBF8)),2) 


(60) 2050 PRINT zeile4S-»-SPACES (35) 

(75) 1250 minS=HEX$((PEEK{iHFBF7)),2) 


(80> 2060 PRINT zeile5S-»-SPACE$ (35) 

(84) 1260 std$sHEX$((PEER(&HFBF6)),2) 


<85> 2070 funktionS“"":HHILE funktion$="" 

(84) 1270 tagezahl%=(PEEK{fi:HFBF5))*256-»-PEEK(&HFBF4) :IF 


<57> 2080 funktionS=INPUTS(l):WEND 

tagezahl%<3420 THEN tagezahl%s3420 


<21> 2090 IF funktionS=CHRS(22) THEN weckerS="Ein":PRIN 

<46> 1280 IF secS=secaltS THEN GOTO 1380 


T cls$;:GOTO 2120 

<95> 1290 GOSUB 1440:’.. (Datum berechnen und anzeigen) 


<77> 2100 IF £unktionS=CHRS(28) THEN weckerS="Aus":GOTO 110 

Listing Dtgitalunr 


Listing Digitäluhr 
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»Joyce-Bestellservice» 
Knüller für Joyce-Fans 

Ich mache von Ihrem Angebot Gebrauch und bestelle hiermit; 


401 _ Stck. »Praktische Textverarbeitung mit Joyce« 

— ein Buch-Disketten-Paket für praxisnahe 

Anwendungen mit Joyce nur 89,-DM 


.ini 

Stck. 

Sonderheft Joyce Nr. 1 

20,- DM 

303 _ 

Stck. 

Oatabox zum Sonderheft Joyce Nr.1 
— viel Software für wenig Geld, Diskette 3" 

30,- DM 

Z 

ffl 

C 

302 . 

Stck. 

Sonderheft Joyce Nr. 2 

20,- DM 

304 

Stck. 

Databox-Diskette Nr. 1 zum Joyce SH 2 

30,- DM 

305 

Stck. 

Databox-Diskette Nr. 2 zum JOyce SH 2 

24,- DM 

306 __ 

Stck. 

Kombipack, enthält Diskette 1 - 1 - 2 zum 

Joyce Sonderheft Nr. 2 

48,- OM 

215 

Stck. 

Joyce Programmsammlung V 0 I.I 

— Hochwertige Software zum Tiefstpreis, 
Diskette 3“ 

59,- DM 

216 

Stck. 

Joyce Programmsammlung VoL2 

— Hochwertige Software zum Tiefstpreis, 
Diskette 3" 

49,- DM 


Gesamtbetrag_ 

zzgl. DM3,- Porto/Verpackung Per Nachnahme zzgl. Nachnahmegebühr. 

(In das Ausland ist Nachnahme nicht möglich.) 

□ Den Betrag bezahle ich mittels des beigefügten Verrechnungsschecks. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD) 


Datum 
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Mehr Erfola _ 

5d,«»d=rCPCWW6'2» 


JKf Ja senden Sie 
mir bitte sofort 

_Expi. Mehr Erfolg 

mit Schneider 
CPC 464/664/6128 ' 

strapazierfähiger Ringbuchord¬ 
ner, Format DiN A4, Crundwerk 
ca. 400 seiten, Besteii-Nr.:24X, i 
Preis: DM 92,- < 

Alie2-3 Monate erhalte ich Ergän¬ 
zungsausgaben zum crundwerk 
mit jeweils ca. 120 seiten zum 
Seltenpreis von 38 Pfennig. (Abbe¬ 
stellung jederzeit ohne /Vigabe 
von Gründen mfjglich.) 

_Expi. Diskette mit der gesamten im werk enthalte¬ 
nen Software und zusätzlichem Adreßverwaltungs- 
programm zum Preis von 19,80 DM. 

Meine Anschrift: 



Name, Vorname 


Straße, Hausnummer 


PLZ, Wohnort 

X 



Datum 


Unterschrift 


Bitte unterschreiben Sie auch Ihre Sicherheitsgarantie, 

mit oer sie foigendes zur Kenntnis nehmen; sie naoen das Recht, ihr angefordertes Werk 
sowie jede nachfolgende ErganzungsausgabelnnerhalovomOTagenabUeferunganden 
INTEREST-VERLAG, industrlestrase 21, 8901 «sstng zurückzusenden, wobei für die Frlst- 
wahrung das Datum der Absendung genügt Sie kommen dadurch von allen Verpflichtun¬ 
gen aus der Bestellung frei. 

K ___ 

Datum Unterschrift 




































CPC 6128 




Dieses speziellfürSchneiderCPC464/664/6128 

entwickelte Nachschlagewerk gibt Ihnen: 

• hundertprozentig lauffähige Program¬ 
me und /^wendungsbeispieie für Wirt¬ 
schaft, Technik und Hobby 

Sie erhalten u. a. in Teil 5 menügesteuerte Pro¬ 
gramme, die Sie bequem mit einer Maus 
steuern können, sowie darauf abgestimmte 
Programme zur Datenauswertung und Datei¬ 
verwaltung; 

• einen Programmier-intensivkurs in Tur¬ 
bo- Pascal. Er sorgtfür optimalen Lernerfolg: 
Durch überschaubare Kurseinheiten erfahren 
Sie alles über Pascal-Operationen und Steuer¬ 
strukturen bis hin zu Prozeduren und Funktio¬ 
nen; 

• neue Tips, Tricks und Utilities 

wie Operator-Utilities, Basic- und Grafik-Utili- 
ties, automatische Menüs... 

0 ein Basic-Befehlskompendium mit 
nützlichen Anwendertips wie z. ß. Simula¬ 
tion von CPC 664- und 6128-Befehlen auf dem 
CPC 464; 

• einen systematischen Grafikkurs: Er ver¬ 
mittelt Ihnen Schritt für Schritt die grafischen 
Möglichkeiten Ihres CPCs, und nebenbei ent¬ 
steht ein hervorragendes Grafikprogramm mit 
Sprite-Editor und allem, was dazugehört: von 
hochauflösenden Grafikprogrammen bis zur 
Animationsgrafik; 

• detaillierte Systembeschreibungen 

Sie lernen Aufbau und Aufgaben sämtlicher 
Bausteine kennen und natürlich auch das Zu¬ 
sammenspiel dieser Komponenten. Mitdiesem 
Wissen sind Sie selbst für .Hardware-Operatio¬ 
nen*, wie das Ersetzen von PROMs durch 
EPROMs, bestens gerüstet; 

0 Bauartteitungen für Hardwareerweite¬ 
rungen wie Reset-Taster oder Druckerschnitt¬ 
stelle mit 8 Bit; 

0 Ergänzungsausgaben 

zum Grundwerk mit neuen Programmen, Routi¬ 
nen, aktuellen Hard- und Softwareerweiterun¬ 
gen, zusätzlichen Sprachkursen und prakti¬ 
schen Anwendungshinweisen. 

0 Am besten gleich mitbestellen: 

Diskette mit der gesamten im Werk enthalte¬ 
nen Software und zusätzlichem Adre6verwal- 
tungsprogramm zum Preis von DM 19,80. 


Fordern Sie noch heute an: 

Mehr Erfolg mit 

Schneider CPC 464/664/ 6128 

strapazierfähiger Ringbuchordner, Format DIN A4, 
ca. 400 Seiten, Bestell-Nr. 2400, Preis: DM 92,-. 

Alle 2-3 Monate erhalten Sie Ergänzungsausgaben zum 
GrundwerK mit jeweils ca. 120 Seiten zum Seitenpreis von 
38 Pfennig (Abbestellung jederzeit möglich). 


Industriestraße ,rl 
D 8901 Kissing 
Tel 082 33/23900 


INTEREST VERLAG 

Fechverlag 

'ur anspruchsvolle 

F’eizeitgestaltung 


Mehr Erfolg mit 
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< 1> 2110 GOTO 2070 


<13> 3400 IF funktion$=CHRS(27) GOTO 3450 

<47> 2120 PRINT zeilelS+". Bitte die Vfeckzeit eingeben 


<66> 3410 IF funktionS*CHR$(22) THEN z%*z%+l:IF z%>ll T 

1 . 


HEN z%*ll 

<65> 2130 PRINT zeile2S+SPACES(33) 


<27> 3420 IF funktion$*CHR$(28) THEN z%=z%-l:IF 2%<1 TH 

< 3> 2140 PRINT zeile4S+SPACES(33> 


EN z%*l 

<27> 2150 PRINT zeile3$+'’. (HH:MM:SS). 


<16> 3430 tagezahl^*tagezahl%(z%) 

,. " 


<78> 3440 GOTO 3290 

<87> 2160 PRINT zeile4$+cz$;:INPUT . ".weck. 


(89> 3450 GOSUB 1440:'.. (Datum berechnen und anzeigen) 

zeitStPRINT cl$ 


<93> 3460 PRINT zeilelS+"Einen Monat weiter: -l+L. drück 

<31) 2170 IF LEN(weck.zeit$)<8 THEN PRINT £eldO$:GOTO 2 


en ! " 

000 


<41> 3470 PRINT zeile2S+SPACES(35) 

<20> 2180 weck.std$=LEFT$(weck.zeit$,2):Heck.min$=HID$( 


<70> 3480 PRINT zeile3$+"Einen Monat zurück: A-U. drück 

weck.zeit$,4,2);weck.secS=MIDS(weck.zeit$,7,2) 


en i " 

<51> 2190 ir VAL(weck.stdS)>23 OR VAL (weck.niinS) >59 OR 


<81> 3490 PRINT zeile4S+SPACES(35) 

VAL(weck.secS)>59 THEN PRINT feldO$;:GOTO 2000 


(14> 3500 PRINT zeile5$+"Monatszahl richtig: EXIT drück 

<78> 2200 PRINT zeilelS+". Ich wecke dich, wenn die Uhr 


en ) " 

. ’• 


(78> 3510 funktion$="":WHlLE funktionS*"" 

<72> 2210 PRINT zeile3S+". "weck.stdS;":";weck 


(50> 3520 funktionS*INPUT$(l):VEND 

.iLinS;'':";weck-secS;”. " 


< 4> 3530 IF funktionS*CHR$(27) GOTO 3590 

<55> 2220 PRINT zeiIe4$+SPACE$(35) 


<89> 3540 IF funktionS=CHRS(22) THEN tagezahl%*tagezahl 

<52) 2230 PRINT zeile5S+’‘. zeigt. 


%+tage%(monat%) 

.... " 


<52> 3560 IF funktionS*CHRS(28) THEN tagezahl%*tagezahl 

<58> 2240 FOR warte%=l TO 4500:NEXT 


%~tage%(monat%) 

<86> 2250 RETURN 


<61> 3570 GOTO 3450 

< 7> 2260 ■ 


< 4> 3590 GOSUB 1440:'.. (Datum berechnen und anzeigen) 

<66> 3000 ‘ftttl** Uhr. stellen ««llfflf 


<68> 3600 PRINT zeilelS+"Einen Tag weiter:.. A+t. drück 

<88> 3010 ’ 


en ! " 

<57> 3020 PRINT £eldO$;zeilelS+"Bitte die richtige Zeit 


<27> 3610 PRINT zeile2S+SPACBS(35) 

eingeben:" 


<88> 3620 PRINT zeile3$+"Einen Tag zurück:.. A-t. drück 

<21> 3030 PRINT zeile2S+SPACES(35) 


en ! " 

<12> 3040 PRINT zeile3S+". (HH:MH:SS). 


<67> 3630 PRINT zeiledS+SPACES(35) 

.. ■■ 


<57> 3640 PRINT 2eile5S+"Kalender richtig:.. EXIT drück 

<61> 3050 PRINT zeile4$+SPACES(35) 


en ! " 

<81> 3060 PRINT zeile5S+SPACES(35) 


<92> 3650 funktionS*""rVHILE funktionS*"" 

<88) 3070 PRINT zeile4$+czS;:INPUT . ".neu. 


<64> 3660 funktionS=INPUTS(l):WEND 

zeitSiPRINT cl$ 


< 2> 3670 IF funktionS=CHRS{22) THEN tagezahl%*tagezahl 

<39> 3080 IF neu.zeitS="" GOTO 3200 


%+l:GOTO 3590 

< 1> 3090 IF LEN(neu.zeit$)<8 GOTO 3000 


<61> 3680 IF £unktionS=CHR$(28) THEN tagezahl%*tagezahl 

<53> 3100 neu.std$=LEFT$(neu.zeit$,2) :neu.itiinS=HID$(neu 


%-l:GOTO 3590 

.zeit$,4,2):neu.sec$-HID$(neu.zeit$,7,2) 


<71> 3690 IF funktionS=CHR$(27) GOTO 3710 ELSE 3650 

<75) 3110 IF VAL(neu.std$)>23 OR VAL(neu.iiiinS) >59 OR VA 


( 0> 3700 ' 

L(neu.sec$)>59 GOTO 3000 


<63> 3710 POKE 4HFBF5,INT(tagezahl%/256):POKE 4HFBF4,ta 

<23> 3120 bcd.stdS*"ScHO"+neu.std$:bcd.B.inS="&HO''+neu.Dii 


gezahl% MOD 256 

n$:bcd.secS-"&HO"+neu.sec$ 


<88> 3720 RETURN 

<20> 3130 PRINT zeile5$+" Bitte Taste drücken zum Start 


( 9> 3730 ■ 

j " 


<30> 4000 Definitionen t####### 

<28> 3140 WHILE INKEYS="":WEND 


(89> 4010 ' 

< 3> 3150 ’ 


<62> 4020 DIM tagezahl%(11):DIH Bonat${12):DIM tage%(12 

<73> 3160 POKE JiHFBF6.VAL(bcd.stdS) 


) 

<18> 3170 POKE 4HFBF7,VAL(bcd.inin$) 


<78> 4030 ce$=CHRS(27) 

<74> 3180 POKE 4HFBF8,VAL(bcd.secS) 


<65) 4040 cy$*ce$+"Y" 

<15> 3190 ' 


<90> 4050 chS*ceS+"H" 

<48> 3200 PRINT clsS;zeilelS+"Soll der Kalender gestell 


<76> 4060 cl$*ce$+"f" 

t werden ?" 


<63> 4070 cz$*ceS+"e" 

<19> 3210 PRINT zeile2S+SPACES(35) 


<76> 4080 cls$=ceS+"E"+chS 

<66> 3220 PRINT zeile3S+".Ja/Nein = J/N. 


<97) 4090 sd$=ceS+"b"+CHRS{0)+ce$+"c"+CHRS(63) 

.... ” 


< 7> 4100 shS=ceS+"b"+CHRS(63)+ceS+"c"+CHR$(0) 

<59> 3230 PRINT zeile4S+SPACES(35) 


<87> 4110 invl$*ce$+"p" 

<81> 3240 funktion$="":WHILE funktionS="" 


<98> 4120 inv0$*ceS+"q" 

<53> 3250 funktionS*rNPUTS(l):WEND 


<58> 4130 zeilelS*cyS+CHRS(33)+CHR$(60) 

<82> 3260 IF INSTR{’’Nn",£unktionS) <>0 GOTO 3720 


<96> 4140 zeile2$=cy$+CHR$(34)KHR$(60) 

< 0> 3270 IF NOT INSTRC'Jj",funktionS)<>0 GOTO 3240 


<35> 4150 2eile3S=cyS+CHRS(35)+CHRS(60) 

< 8> 3280 IF tagezahl%=0 THEN PRINT feld.datuin$+’'Ich. w 


<73) 4160 zeile4S*cyS+CHRS(36)+CHRS(60) 

eifi. das. Datum, nochnicht,. bitte, erst die Uhr.. 


<12> 4170 zeile5$=CYS+CHR$(37)+CHRS(60) 

. einschalten !"+feldOS:FOR warte*l TO 4500:NE 


<53> 4180 feld0S=ceS+"X"+CHRS(32)+CHRS(32)+CHR${64)+CHR 

XT iGOTO 110 


$(121) 

<97> 3290 GOSUB 1440:'.. (Datum berechnen und anzeigen) 


<91> 4190 feld.datum$*ce$+"X"+CHRS(41)+CHRS(62)+CHRS(34 

<19> 3300 PRINT zeilel$+"Ein. Jahr, weiter:. A+l. drück 


)+CHR$(58) 

en ! " 


(89> 4200 £eld.stdlS*ce$+"X"+CHRS(44)+CHR$(43)+CHR$(44) 

<21> 3310 PRINT zeile2S+SPACES(35) 


+CHRS(39) 

<67> 3320 PRINT zeile3S+"Ein. Jahr, zurück:. 1-t. drück 


<46> 4210 feld.std2$=ceS+"X"+CHRS(44)+CHRS(53)+CHRS(44) 

en ! " 


+CHRS(39) 

<61> 3330 PRINT zeile4S+SPACES(35) 


<67> 4220 £eld.minl$=ce$+"X"+CHRS(44)+CHRS(67)+CHR$(44) 

<41> 3340 PRINT zeile5$+"Jahreszahl richtig: EXIT drück 


+CHRS(39) 

en ! " 


<24> 4230 £eld.min2S*ce$+"X"+CHR$(44)+CHRS(77)+CHR$(44) 

<16> 3350 FOR z%*l TO 11 


+CHR$(39) 

<42> 3360 IF tagezahl%<=tagezahl%(z%) GOTO 3380 


<23> 4240 £eld.seclS=ceS+"X"+CHRS(44)+CHRS(91)+CHRS(44) 

<12> 3370 NEXT 


+CHR$(39) 

<95> 3380 funktionS*"":VHILE funktionS*"" 


<39> 4250 feld.sec2$*ceS+"X"+CHR${44)+CHRS(101)+CHRS(44 

<67> 3390 funktionS=INPUTS{l):WEND 


)+CHRS(39) 
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15> 

4260 

feldlS=ce$+’‘X"+CHRS<38)+CHRS{32)+CHRS(57}+CHR 


S(121) 




(58> 

4270 

feldexS=ceS+"y" 




<41) 

4280 

einsS=".... ##. 

44. 


.... II. 1 



.. ##. M '■ 




<82> 

4290 

zweiS-"##»####. 

. 11... 

. tl 

lllll« II.... 


. o. 

. ######1#" 




< 7> 

4300 

dreiS»"#######. 

. II.... 

. I«*«t««ll. 


##... 

... mmm '• 




<77> 

4310 

vierS»"##... ####.. 

. 4141.. 

. Ilflllltll. 


H... 

... IHf . O" 




11> 

4320 

tl. 

.... II. 


Illfitt. 


##.. 

.... oono# " 




(29) 

4330 

sechsS=‘' #»1##« ft. 

.... II. 


lllltll 11... 


»#«#... i« «««<«« " 




<17> 

4340 

siebS=‘'ti##»###.... 

. II.... 

. II 

. II. 


##... 

... O. ff" 




<47) 

4350 

acht$»" II.. 

. «#tl.. 

. «« 

Illitt II... 


#«##. 

...41 «mit " 




27) 

4360 

neunS=" Mfll# II.. 

. «III.. 

. II 

Illllll . 


##... 

...4« mtff " 




<70) 

4370 

nuus=" mm II.. 

. 1 «««.. 

. Illl... 


««#». 

... »4 mm " 





<24> 4380 DEF FNinvS(symbolS) =iiivlS+sy!nbolS+invOS 
<81> 4390 DEF FNposS{y%,x%)=cy$+CHR$(31+y%)+CHRS(31+x%) 
<77> 4400 RETURN 
(97> 4410 ' 

<89> 5000 Sonderzeichen »###### 

<90> 5010 ' 

(31) 5020 GOSUB 5190 

<67) 5030 IF NOT ende=l THEN RESTORE 5160 ELSE RESTORE 
5170 

< 2> 5040 READ Code 
(86) 5050 FOR r%=0 TO 7 

<85> 5060 READ matrix:POKE tabstart+r%,itiatrix 

< 8> 5070 NEXT 

< 8) 5080 charstart=code*8+Ä;HB800+2'16 
(27) 5090 highaddi=INT(charstart/256) 

( 0> 5100 lowaddr=charstart-highaddr*256 
<58> 5110 POKE icHF510,lowaddr 
<87> 5120 POKE SiHFSll,highaddr 
<25> 5130 CALL codestart 
<84> 5140 RETURN 

< 5) 5150 ■ 

<27> 5160 DATA 35,255,255,255,255,255,255,255,255 
<15> 5170 DATA 35, &H36, StH36, &H7F,&H36,4H7F,4H36, iH36,0 
<14> 5180 ’ 

<73> 5190 MEMORY &HF4FF 

<76> 5200 RESTORE 5280 

<85> 5210 codestart=SiHF500 

(21) 5220 tabstart=tHF515 

(15) 5230 FOR r%=0 TO 20 

<16> 5240 READ x:P0KE codestart+r%,x 

< 6> 5250 NEXT 
(92> 5260 RETURN 
<13> 5270 ’ 

(52> 5280 DATA 4H01,4H09,4HF5 
<57> 5290 DATA 4HCD,&H5A,4HFC 
(40) 5300 DATA 4HE9,4HOO 

< 6> 5310 DATA 4HC9 

< 4> 5320 DATA 4H21,4H15,4HF5 
<87> 5330 DATA 4H01,4H08,4HOO 
<50> 5340 DATA 4H11,4H00,4H00 
(38> 5350 DATA 4HED,4HB0 
<21> 5360 DATA 4HC9 

<15> 5370 ■ 

<79> 5380 '########.. ENDE.. 
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Was braucht der Mensch? 

Preiswerte PC’s erobern einen neuen 
Anwenderkreis, dies sind die Leser 
der neuen DOS International. 



DOS braucht der Mensch! 

DOS Internationa] bringt neben Berichten über 
neueste So/t- und Hardware Jede Menge Tips 
und Tricks, die Ihnen die Arbeit am PC zum 
Vergnügen werden Jossen. 

Jeden Monat im Zeitschriftenhandel 
oder direkt von: 


DMV Daten- und Medien 
Verlac|?geselischaft mbH 
Posu^' '• "’O F'uldyor Stn 6 
: • fei. (05651) a702 


4.MDM «VÖ« 


DAS MAGAZIN FÜR AKTIVE PC-ANWENDER 
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Programm XXREF 

Querverweislisten für BASIC-Programme 

Die mit dem Kommando LLIST erzeugten BASIC-Programmlisten haben 
meiner Meinung nach einige gravierende Mängel: 

Sie enthalten keinen Hinweis auf die Aktualität der Liste wie Druckdatum 
oder Uhrzeit. Sie enthalten keine Aufzählung der verwendeten Variablen, 
Funktionen, Literale oder Sprungziele. Sie enthalten keine Referenzen, wo 
welche Variable, welche Funktion, welches Literal oder welches Sprungziel 
verwendet wurde. 


Daher habe ich das Programm XXREF 
erstellt. Es erzeugt wahlweise: Eine Pro¬ 
grammliste mit Seitenkopf, die Pro¬ 
grammname, Druckdatum und Druck¬ 
zeit sowie eine Seitennummer enthält. 

Eine Querverweisliste, die alle verwen¬ 
deten Variablen, BASIC-Funktionen, 
Literale und Zahlen (=Sprungziele oder 
numerisches Literal), sowie die Zeilen, 
in denen sie verwendet werden, referen¬ 
ziell. Funktionen und indizierte Varia¬ 
ble sind in der Querverweisliste durch 
“0“ gekennzeichnet. Nicht referenziell 
werden die Operanden der DATA-Zei- 
len und Zahlen im Exponentialformat 
(1.234E+03), wobei letztere als unzu¬ 
lässige Zeichenfolge aufgefaßt werden. 
DATA-Karten würden eine eigene Rou¬ 
tine zur Analyse der dort definierten Li¬ 
terale erfordern. Exponentialzahlen habe 
ich bisher nicht verwendet, so daß mir 
ihre Referenz keinen Vorteil gebracht 
hätte. 

Die erstellte Querverwcisliste wird in ei¬ 
ner JETS AM-Datei abgelegt, die als Bi¬ 
bliothek ausgelegt ist. Somit können 
mehrere Listen verschiedener Program¬ 


me in der gleichen Datei zusammenge¬ 
faßt und durch ein zusätzliches Pro¬ 
gramm DXREF als gemeinsame Liste 
ausgedruckt werden. 

Die Zusammenfassung mehrerer Quer¬ 
verweise in einer Liste ist besonders 
dann sehr nützlich, wenn jemand ein gro¬ 
ßes System entwickelt, das aus mehreren 
Einzelprogrammen besteht, und die ein¬ 
zelnen Programme mit CHAIN MERGE 
überlagert. Wenn dann auch noch viele 
Datenfelder global benutzt werden,ist die 
programmübergreifende Liste für Feh¬ 
lersuche oder Tuning eine große Hilfe. 

2. Bedienung — Eingabedatei: 

Als Eingabedatei wird ein BASIC-Pro- 
gramm im ASCII-Format in der Datei 
< programmname > . ASC erwartet. 
Aus Effizienzgünden muß diese Datei in 
der RAM-Disk liegen. Dies bewerkstel¬ 
ligen Sie wie folgt: 
LOAD"Programmname" 

SAVE" M: Programmname. asc", A 

Datum und Uhrzeit; 

Das Programm wertet die Speicheruhr 
aus. Deswegen sollten vor seinem Start 
Datum und Uhrzeit eingestellt sein. Das 


Programm nimmt sonst an, daß das Li- 
sting in den frühesten Morgenstunden 
des 15.12.82 erstellt wurde. 
Bedienereingaben: Nach dem Start fragt 
das Programm nach dem Namen der Bi¬ 
bliothek für die Querverweislisten, nach 
dem Namen des zu analysierenden Pro¬ 
gramms, ob eine Programmliste auszu¬ 
drucken ist, ob eine Querverweisliste 
auszudrucken ist, ob die Querverweis¬ 
liste nur Variable und selbstdefinierte 
Funktionen, oder auch BASIC-Funktio¬ 
nen oder auch Literale oder auch Zahlen 
referenzieren soll. Danach wird die Ein¬ 
gabedatei analysiert und die Querver¬ 
wcisliste in die Bibliothek eingetragen. 
Dabei wird gegebenenfalls die Liste er¬ 
stellt. Falls gewünscht, wird nach der 
Analyse durch logisch sequentielles Le¬ 
sen der JETSAM-Datei die Querver- 
weisliste ausgedruckt. 

Ist bereits eine Querverweisliste des un¬ 
tersuchten Programms in der JETSAM- 
Datei vorhanden, so wird sie gelöscht. 
XXREF kann mehrere Programme 
nacheinander untersuchen. Es wird 
durch eine Leereingabe (Nur fENTERJ) 
auf die Frage nach dem Programmna¬ 
men beendet. 

3. Hinweise: Kommentarzeilen, die mit 
“ ’ * “ beginnen, werden von mir in Er¬ 
mangelung eines LABEL-BASIC als La¬ 
bels verwendet. Sie müssen daher beim 
Abschreiben mit eingegeben werden. 

4. Programmbeschreibung: Ich habe 
versucht, das Programm möglichst 
strukturiert und selbsterklärend zu ent¬ 
wickeln. Ich werde mich daher bei der 
Programmbesprechung auf wenige Rou¬ 
tinen beschräidcen. In der Überschrift ist 
die Nummer des ersten Satzes der Rou¬ 
tine angegeben. 

XXREF stellt das Standardlaufwerk für 
BASIC aufM:. Falls jemand unbedingt 
mit dem A:-Laufwerk arbeiten will, muß 
Zeile 40 gelöscht werden. 

4.1 Druckzeit festhalten (90); Als 
Druckzeit wird der Beginn der Analyse 
eines Programms angesehen. Die Druck¬ 
zeit wird in ztd$ feslgehalten. 

4.2 Uhr abfragen (660): Datum und 
Uhrzeit werden direkt aus dem Arbeits¬ 
speicher gelesen und in der hierzulande 
üblichen Form ausgegeben. 

4.3 Programmname (830): In dieser 
Routine gibt XXREF eine kurze Bedie¬ 
nungsanleitung aus und fragt nicht nur 
nach dem Programmnamen, sondern 
verlangt alle oben erwähnten Eingaben. 
Dabei wird eine Liste aller ...ASC-Da- 
teien auf dem Laufwerk “M“ ausgege¬ 
ben. Dateien, die das Programm in der 
laufenden Sitzung bereits bearbeitet hat, 
werden durch “ # “ gekennzeichnet. 
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4.4 Pgm schon analysiert (1670): Hier 
prüft XXREF, ob die JETSAM-Datei 
schon eine Querverweisliste des zu un¬ 
tersuchenden Programms enthält. Die 
Namen der analysierten Programme 
werden in Sätzen gespeichert, die durch 
logisch sequentielles Lesen der Reihe 1 
ausgewertet werden können. Den Pro¬ 
grammen wird in aufsteigender Reihen¬ 
folge ein Einzeichenflag beginnend mit 
"A“ zugeordnet. Dieses Flag dient als 
Satzschlüssel. Es wird besonders von 
DXREF verwendet, werm eine gemein¬ 
same Liste für mehrere Programme ge¬ 
druckt wird. 

4.5 Satznummer feststellen (2230): Die 
Zeichenfolge vor dem ersten Blank wird 
als BASIC-Satznummcr aufgefaßt. 

4.6 Wortant'ang (2440): Hier wird jedes 
Zeichen der Zeile geprüft. 

Dabei bedeuten: 

Kleinbuchst. ;eine Variable beginnt 
Ziffern: eine Zahl beginnt 
Großbuchst.: eine Funktion beginnt & 
eine Hexazahl beginnt 
’ ein Kommentar beginnt, der Rest der 
Zeile wird ignoriert 


Alle anderen Zeichen werden nicht be¬ 
achtet. 

Man beachte, daß das erste Zeichen den 
Typ des Wortes festlegt! 

4.7 Wortende (2580): Abhängig vom 
gefundenen Wortanfang, werden die fol¬ 
genden Zeichen geprüft. Zum Beispiel 
dürfen Dezimalzahlen nur aus Ziffern 
bestehen. Vorzeichen werden hier als 
Operator und nicht als zur Zahl gehörig 
aufgefaßt. Als alphanumerisches Literal 
wird alles interpretiert, was zwischen 
zwei steht. Die Literalroutine (2960) 
erwartet, daß jedes Literal auch abge¬ 
schlossen ist. Wer wie der BASIC-Inter¬ 
preter auch das Zeilenende als Literalab¬ 
schluß zulassen wül, sollte Zeile 2990 er¬ 
setzen: IF i=0 then i=slen+1 
Wenn ein Zeichen gefunden wird, das in 
dem Wort nicht Vorkommen darf, wird 
geprüft, ob das Zeichen einen gültigen 
Wortbegrenzer enthält. Wenn nicht, 
meldet XXREF einen Fehler und bleibt 
stehen (STOP). Das Programm kann mit 
CONT fortgesetzt werden. Der Rest der 
fehlerhaften Zeile wird dann ignoriert. 
Die zulässigen Begrenzer wurden in Zei¬ 


le 550 und 560 definiert. Die in Zeile 560 
definierten ($%!#) werden dabei als 
zum Variablennamen zugehörig be¬ 
trachtet. 

4.8 Satz lesen, wenn schon da (3270): 
XXREF referenziell jedes Wort nur ein¬ 
mal pro Zeile. Dies wird in dieser Rou¬ 
tine überprüft. 

4.9 Satz schreiben (3060): Hier wird ein 
Satz in die Datei eingetragen. Als Schlüs¬ 
sel dient das gefundene Wort verlängert 
und das Programmflag. Als Schlüsselrei¬ 
he wird Reihe 0 verwendet. Anhand des 
Programmflags wird später erkannt, in 
welchem Programm die Variable in der 
gespeicherten Zeüe verwendet wird. Die 
Zeilennummer wird als Integerzahl ver¬ 
ringert um 32767 eingetragen. Damit 
lassen sich Zeilennummem bis 65534 
eintragen. In einem JETSAM-Satz wer¬ 
den bis zu 13 Referenzen gespeichert. 
Wenn mehr existieren, werden weitere 
Sätze mit gleichem Schlüssel abgelegt. 

4.10 XREF ausgeben (3430): Die Da¬ 
tei wird logisch sequentiell nach Reihe 0 
ausgelesen. Beim Ausdruck wird jeder 
Variablenname oder jedes Literal auf die 
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3610 
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OOTO 
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IF 


INKEVI 
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NlltO 
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2170 

ISO 2020 2200 

3960 
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2720 2730 2790 

3110 3120 3130 

3190 3510 3610 
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3510 3560 3580 


2710 2780 2850 


1560 2830 2660 
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220 230 690 

1240 1270 1320 
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2490 2800 2510 
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3160 3260 3290 
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3490 3510 

2270 3490 
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170 210 220 

1920 1980 1990 

3510 3560 3660 

1800 1910 2180 
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700 720 780 

1330 134D 1350 
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3930 3940 3950 


3020 


Ahb. ]: Ein ähnliches Ergebnis sollten Sie mit XXREF erzielen... 
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ersten 10 Stellen verkürzt. In einer Zei¬ 
le werden 13 Referenzen abgedruckt. 

4.11 XREF Löschen (3660): Diese 
Routine wird gerufen, wenn die JET- 
SAM-Datei bereits eine XREF des zu 
untersuchenden Programms enthält. Sic 
löscht die alte XREF. 

4.12 Position (3840): Die Routine prüft 
beim Drucken vor jedem Zeilenwechsel, 
ob die Seite voll ist und eine Neue begon¬ 
nen werden muß. 

5. Beschreibung der wichtigsten Va¬ 
riablen: 

bmsk$ enthält gültige Begrenzer 
dlz Anzahl Druckzeilen/Seite 
dsw zeigt an, ob gedruckt werden soll 
dz aktuelle Druckzeile 
hpos — > Wortanfang in der Zeile 
i Laufvariable: --> gerade untersuch¬ 
tes Zeichen in der Zeile 
nword$ Hilfsvariable, um das auszu¬ 
gebende Wort zu prüfen 
pnam$ Programmname 
slen Länge der untersuchten Zeile 
word$ gefundenes oder zu druckendes 
Wort 

x$ gerade untersuchtes Zeichen 
x.$ Zeilennummer in JETSAM-Datei 
x.f$ Programmflag im Referenzsatz 
x.fl$ Programmflag im Programmsatz 
xnd zeigt an, ob eine Routine ein wei¬ 
terverwertbares Ergebnis geliefert 
hat. 

xrf Dateinummer der JETSAM-Datei 


xtyp Worttyp 
zeile$ aktuelle Zeile. 

6. Laufzeit: Das Programm läuft deut¬ 
lich länger als ein Druck ohne Querver¬ 
weise. Um ein Basieprogramm von 10 
Druckseiten zu untersuchen, braucht es 
abhängig von der Zeilenlänge ca. 15-18 
Minuten. Die Analyse einer Zeile dau¬ 
ert meist länger als das Drucken, so daß 
ohne Zeitverlust eine Programmliste er¬ 
stellt werden kann. Da grundsätzlich alle 
Zeichen einzeln geprüft werden müssen, 
wird die Laufzeit durch Einschränken 
des Analyseumfangs (z.B. nur Variable) 
nur wenig beeinflußt. 

Das Programm DXREF: Das Pro¬ 
gramm DXREF druckt eine XREFBi- 
bliothek aus. Wenn in einer Bibliothek 
die (^erverweislisten mehrerer Pro¬ 
gramme gespeichert wurden, kann mit 
DXREF eine gemeinsame Querverweis¬ 
liste gedruckt werden. Dies ist besonders 
siimvoll, wenn ein Programmsystem un¬ 
tersucht werden soll, in dem die einzel¬ 
nen Programme mit CHAIN MERGE 
überlagert werden, und die Variablen 
global verwendet werden. DXREF 
druckt nur Querverweise zu Variablen 
und im Programm definierten Funk¬ 
tionen. 

Bedienimgshinweise: Das Programm 
fragt zu Beginn nach dem Namen der 
von XXREF erstellten XREF-Biblio- 
thek. Die Bibliothek muß als JETSAM- 


Datei auf dem zugewiesenen Laufwerk 
vorliegen. Die Datei wird logisch se¬ 
quentiell nach Reihe 0 gelesen. Die 
Querverweise zu den Variablen und den 
in den Programmen definierten Funktio¬ 
nen werden ausgedruckt. 

Programmbeschreibung: Das Pro¬ 
gramm ist entstanden durch Kopieren der 
entsprechenden Funktionen aus 
XXREF. Eine ausführliche Beschrei¬ 
bung der Funktionen erübrigt sich daher. 
Unterschiede bestehen nur in der Routine 
“XREF ausgeben“. 

Inden Zeilen 990-1050 wird geprüft, ob 
in der Bibliothek Querverweislisten ab¬ 
gespeichert sind. Wenn nein, enthält xnd 
den Wert 0 und das Programm beendet 
sich, ohne zu drucken. Weiter wird ge¬ 
prüft, ob die Datei Querverweise von 
mehr als einem Programm enthält. Das 
Ergebnis wird in xxi festgehalten. Weim 
xxi=l ist, enthält die Datei nur ein Liste. 

In Zeile 1220 und 1230 werden Querver¬ 
weise ausgeschlossen, die sich nicht auf 
Funktionen oder Variable beziehen. Das 
Programm sieht wie XXREF Zeichen¬ 
folgen, die mit kleinem Buchstaben be¬ 
ginnen, als Variable an. 

In Zeile 1280-1310 wird der Programm¬ 
name ermittelt und ausgedruckt. In 1320 
muß die aktuelle JETSAM-Position wie¬ 
der auf den Querverweissatz zurückge¬ 
stellt werden. 

(W. Scherg) 


LISTING >XXREF <, REMARK = >REM<. 

<64> 10 ' * XREF-profframm 
< 2 > 20 ' 

<51) 30 DEFINT a-z 
<60> 40 OPTION FILES "M:” 

< 1> 50 GOSUB 600’Honatstage 
<25> 60 GOSUB 190'init 

<29> 70 WHILE Isw OR isw=0 
<60> 80 GOSUB 830'Programm 
<35> 90 GOSUB 660:ztdS=ztS’Druckzeit 

< 5> 100 IF lsw=0 THEN 160 
<22> 110 GOSUB 1510’open 

<20> 120 IF xnd THEN GOSUB 1670’XREF-Datei prüfen,pgm-F 
lag 

<89> 130 IF xnd THEN GOSUB 1960'XREF erstellen 
<13> 140 IF xnd AND xsw THEN GOSUB 3430'XREF ausgeben 

< 4> 150 IF osw THEN GOSUB 2060'close (wenn Dateien off 

en) 

<91> 160 VEND 

<92> 170 GOSUB 2110'Ende 

<39> 180 END 

<36> 190 ■ 

<16) 200 ■ * Init 

< 2> 210 IF isw=0 THEN GOSUB 260’Bildschirmsteuerzeiche 

n 

<68> 220 IF isw®0 THEN GOSUB 370'Druckersteuerzeichen 
<19> 230 IF isw=0 THEN GOSUB 490'Funktionen/Sonstiges 
<76> 240 RETURN 
<29> 250 ' 

< 2> 260 ' * —Bildschirnisteuerzeichen 
<49) 270 VIDTH 255 

<73> 280 escS=CHRS(27):cls$=escS+"E"+escS+"H’"Cursor -> 

bome,löschen 

<81> 290 bellS*CHR${7):nz$=CHRS(10)+CHRS(13) 

< 7> 300 loe$*escS+''J": 2 loe$*escS+"K". 'löschen B 

ild,Zeile 

<92> 310 iv$=escS+"p”:ivaS=escS+"q". 'invers ei 

Listing XXREF 


n,aus 

<48) 320 uonS=escS+"r":uofS=escS+"u". 'unterstre 

ichen ein,aus 

<59> 330 conS=escS+”e":cofS=esc$+"f". 'Cursor ei 

n/aus 

<85> 340 PRINT escS”0"clsScof$ 

<79> 350 RETURN 


<77> 370 ' * -Druck-Steuerzeichen 

<29> 380 duon$=esc$+"-"+''l":duofS=escS+"“”+"0”’Druck un 
terstreichen ein,aus 

< 9> 390 korrS*esc$+"x*'+''l":entwS=escS+"x"+"0’"Korrespo 

ndenz/Enttrurf 

<14> 400 fett$=esc$+"E’':fetaS*escS+"F". 'fett ein, 

aus 

<79> 410 elit$*escS+"M";dopS=CHRS(14);dopaS*CHRS(20)'El 
ite,doppelt 

<66> 420 drS*escS+"c"+elitS+escS+"l”+CHRS(8)+escS+’'Q"+C 
HR$ (98) +esc$+"C”+CHR$ (72) +esc$+''N"+CHR$ (5) 

<84> 430 Endlos. Rand links. rechts.... 

. Seltenlänge.Zeilen frei 

<46> 440 dz=-l:dlz=64 
<62> 450 WIDTH LPRIHT 255 
<82> 460 RETURN 

<35> 470 ’ 

<69> 480 ' * -Funktiondef. 

<42> 490 DEF FNcpS(z,s)=esc$+"y"+CHR$(32+2)+CHR$(32+s) 
<46> 500 DEF FNbzrS(xS)=FNcpS(az.0)+zloeS+SPACES{(90-LE 
N(x$))/2)+xS 

<88> 510 DEF FNdzrS(xS)=SPACE$((76-LEN{xS>)/2)+xS 
<22> 520 DEF FNddzrS(xS)=SPACES(39-LEN(xS})+dopS+fettS+ 
duonS+xS+duof S+feta$+dopaS 
<63> 530 mszS=FNcpS(26,15)+zloe$:sszS=FNcp$(26,38)+" 

wszSsFNcpS(26,38)+zloe$+"... " 

<92> 540 '. - Sonstiges 

<92> 550 bmskS»" »-+0;'ö<>*"+CHRS(34):bnillen=LEH(b 
BskS) 

< 1> 560 bmsk$sbmskS+"S%Jf" 
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<54> 570 DIH x.$(13) 

<87> 580 RETURM 
<40> 590 ' 

<71> 600 ’ * Moaatstage 
<80> 610 DIH atg(12) 

<69> 620 DATA 31,29,31,30,31,30,31,31,30,31,30,31 
<25> 630 FOR i-l TO 12: READ atg(i):NEXT i 
<80> 640 RETURN 
(33> 650 • 

< 9> 660 ' * Uhr abfiagen 

<97> 670 d»256’‘PEEX(&HFBF5)->-PEER(&HFBF4)-3287 
<59> 680 FOR jj*87 TO 100 

<18> 690 IF (jj HOD 4) THEH tt=365 ELSE tt=366 
<30> 700 IF d>tt THEN d>d~tt ELSE 720 
<42> 710 REXT 

<21> 720 IF (jj MOD 4) THEN litg(2)»28 

<40> 730 FOR aa=l TO 12 

<36> 740 tt=Btg{Ba):d»d-tt 

<49> 750 IF d<=0 THEN 770 

<52) 760 REXT 

<21> 770 tt*d+tt 

<18> 780 hdtS»DECS(tt,”||’'>+”.”+DEC$(mffi,''+DECS( 

jj.'‘lf") 

<64> 790 ztS-HEX$(PEEK{tHFBF6) ,2)+":”+aEXS(PEEK{tHFBF7) 

, 2 ) 

< 2> 800 PRINT FHcpS{0,70)hdtS". "ivSzt$ivaS; 

<76> 810 RETURN 

<29> 820 ' 

<83> 830 ’ • ™-PrograBmna»e 

<42> 840 istf-l:stnrBO:dz--l'Initialisert istrSeitennr-O 
:Zeilanzähler-Neue Seite 
<57> 850 GOSUB 660 
<34> 860 IF xsysSO"" THEN 1170 

< 7> 870 az®2 

<28> 880 PRINT FNbzrS("XREF-Programa") 

<90> 890 PRINT FNcpS(5,0}; 

<84> 900 PRINT Das ProgramiB. XXREF. erstellt Querver 
ütWngXXREF 


weislisten. für BASIC-Prograue. Die Prograuie'' 
<85> 910 PRINT Büssen als. ASCIl-Datei "ivS" <progra 
aimaBie>.ASC ''i7a$" ie Laufwerk K:. vorliegen." 

<44> 920 PRINT 

<43> 930 PRINT Die Querverweislisten, werden in eine 
. JETSAM-Bibliothek "ivS" <libnaBe>.XDT bzw. ..XDX 
"iva$ 

<65> 940 PRINT gespeichert. Auf Wunsch wird eine Pro 
granoliste und eine Querverweisliste gedruckt." 
<50> 950 PRINT 

<64> 960 PRINT Eine geneinsaae. Querverweisliste all 
er Progranine in einer. JETSAH. Bibliothek kann" 

<52> 970 PRINT mit DXREF ausgegeben werden." 

<56) 980 PRIKT 

< 9> 990 PRINT ". Das Programm wird durch eine 'Leerein 
gäbe' beendet!" 

<45> 1000 IF F1ND$("*.ASC")»"" THEN PRINT:PRINT:PRINT". 

Leider ist kein Programm vorbereitet!"con$:SND 
<43> 1010 GOSUB 660'Uhr abfragen 
<18> 1020 az-az-fl4:lazsaz:libpos$BFNcp$(az,5) 

<84> 1030 xsys$*STRlPS(FIMDS("*.XDT",l)) 

<33> 1040 IF xsysS*"" THEN PRINT FNbzrS("Bisher ist kei 
ne Bibliothek vorhanden!"):GOTO 1120 
<32> 1050 PRINT FNbzrS("Bisher sind folgende Bibliothek 
en vorhanden:") 

<34> 1060 i»l:j*5:a2=a2+2 
<35> 1070 WHILB xsys$<>"" 

(64> 1080 PRINT FNcpS(az,j)xsys$ 

<23> 1090 i=i+l;j=j+15:IF j>75 THEN az=az+l:j=5 
<56> 1100 xsysS=STRIP$(FINDS("*.xdt",i)) 

<16> 1110 WEND 
<96> 1120 a2=a2+2 

<87> 1130 PRINT FNcpS(az,5)"Bibliotheksname (ohne '.XDT 
'): "conS;:INPüT" ",xsysS 

<90> 1140 IF xsysS="" OR INSTR(xsysS.CHRS(27))<>0 THEN 
lsw=0:GOTO 1490 

<92> 1150 xsysS=UPPERS(xsys$):i=INSTR(xsys$,"."):IF io 
Listing XXREF _ 


PROWORT 
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funküonen und verschiedenen Disketten — Hüfs- 
programmen geliefert und mit umfangr eichem deutschem 
Handbuch. 
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auf Diskette, damit Sie selbst ganz einfoch einige 
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10’87 PC 125 


























r~ Professional Computing 


] 


0 THEN xsysS=I/EFTS(xsysS.i-l) 

<93> 1160 PRINT libpos$loeS''Bibliothek: ”xsys$''.XDT" 

01> 1170 azslaz+2:paz=az:pgBpos$=FNcp$(az,5) 

<94> 1180 PRINT FNcp$(paz,0) 

<64> 1190 PRINT loe$FNbzr$("Folgende PrograDne sind vor 
bereitet:") 

<92> 1200 az=az+2 

<30> 1210 naoe$*FIND${"*.ASC’M) 

<19> 1220 j*5:i»l 

<87> 1230 WHILE naiie$<>"" 

(88> 1240 i$-LEFT$(Daiie$,INSTRlnaaeS,:IF INSTR(e 
naaS,iS)<>0 THEN naDe$sname$+”f'' 

(88> 1250 PRINT FNcp$(az,j)name$; 

<46> 1260 j*j+15:i=i+l 

<42> 1270 IF j>75 THEN az=az+l:j=5 ELSE PRINT FNcpS(az, 

<32> 1280 naaeS=STRIP$(FIND$("».ASC",i)) 

<42> 1290 VENO 
<94> 1300 az«az-t-2 

<28> 1310 PRINT FNcp$(az,5)"ProgrammnaBe (ohne '.ASC'}: 

"zloeScon$;;INPUT " ",nameS:PRINT cof$ 

<49> 1320 IF naaeS-"" OR IHSTR(naneS,CHR$(27))<>0 THEN 
lstf=0:GOTO 1490 ELSE lsw-1 

<33> 1330 naffie$-LEFT$(nace$+". ",8) :naiie$-UPPER$(n 

aBeS):IF LEN(eQaB$)<245 THEN ena&$senaa$4-naDeS 
<79> 1340 i=INSTR(naBeS," ");IF i>0 THEN piaaS=LEFTS(iia 
meS,!*!) ELSE pnaffi$snaQe$ 

<74> 1350 IF riNDS(pnaaiS+".ASC")="" THEN PRINT bellS?zG 
OTO 1310 

<52> 1360 PRINT pgmposSloe$"Programm:.. "pnaB$".ASC"; 
<49> 1370 azspaz+2 

<80> 1380 PRINT FNcp$(az+2,5)"Prograuliste drucken? (J 
/N)";:GOSÜB 3740:IF iS="J" THEN ds»*l:PRINT FNcpS( 
az.5}"Liste"; ELSE PRINT FNcpS(az,5)"Keine Liste": 
dsw=0 

<88> 1390 PRINT FNcpS(az+2,5)zloeS"XRBF-drucken? (J/N)" 
;:GOSUB 3740:IF iS="J" THEN xsw=l:PRINT FNcp$(a 2 ,l 
8)"XREF-Ausgabe’' ELSE xsw*0:PRINT FNcpS(az. 18)"Kei 
ne XREF-Ausgabe"; 

<44> 1400 PRINT FNcpS(az42,5)"Nur Variable (1), auch Ba 
sicfunktionen (2), Literale (3), Zahlen (4)?"; 

(41> 1410 GOSUB 3790:xtyp»VAL(iS);IF xtyp<l OR xtYp>4 T 
HEN PRINT bellS::GOTO 1400 
<36> 1420 PRINT PNcp$(a2+2,5)loeS"XREF von: 

<49> 1430 ON Xtyp GOTO 1470,1460,1450,1440 
<79> 1440 PRINT "Zahlen, "; 

<26> 1450 PRINT "Literalen, 

<41> 1460 PRINT "BÄSIC-Funktionen und 
<31> 1470 PRINT "Variablen" 

<60> 1480 IF xtyp>3 THEN xtyp=6 
<14> 1490 RETURN 
<20> 1500 ■ 

<64> 1510 ' • Open 
<37> 1520 tst*l:xrf=2 

< 5> 1530 ON ERROR GOTO 4000 
(68> 1540 BUFFERS 9,7 

<48> 1550 IF riND$(nameS+".ASC")<>"" THEN 1580 

<43> 1560 PRINT oszS;"Datei ";nai!ieS;" nicht vorhanden!" 

;:FOR i=l TO 1500:NEXT 
<56> 1570 osw30:xnd=0:GOTO 1650 
<41> 1580 OPEN "I",t3t,naae$+".ASC" 

< 7> 1590 sl»32 

<71> 1600 IF FINDS(xsysS+".XDT")="" THEN CREATE xrf,xsy 
s$+".XDT",xsysS+".XDX",1,slzGOTO 1620 
<22) 1610 OPEN "K",xrf,X8ysS+".XDT",xsysS+".XDX",l,sl 

< 8) 1620 FIELD xrf,2 AS x.zalS,! AS x.f$,2 AS x.S{l),2 

AS x.$(2),2 AS X.${3).2 AS X.S(4),2 AS X.$(5),2 A 
S x.$(6),2 AS x.$(7),2 AS x.S(8),2 AS x.$(9),2 AS 
x.$(10),2 AS x.S(ll),2 AS x.S(12),2 AS x.$(13) 

< 6> 1630 FIELD xrf,l AS x.fl$,8 AS x.pgaS 
<33> 1640 xnä»l:osw«l 

< 6> 1650 RETURN 
<14> 1660 ' 

< 3> 1670 ' * XREF-Datei prüfen (Pgm schon analysiert?) 
<53> 1680 GOSUB 1720'pgm suchen 

<70> 1690 IF xnd*0 THEN GOSUB 1890'fragen ob weiter 
<92> 1700 RETURN 

< 1> 1710 ’ 

<86> 1720 ' * Pgm suchen 
<33> 1730 xnd=l 
<43> 1740 flgS*"A“ 

<63> 1750 irc=SEKKRANK(xrf,0,l) 

<44> 1760 IF irOO THEN 1850'Datei leer 
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< 2> 1770 irc=101 

<56> 1780 VHILE irc=101 
<91> 1790 GET xrf 

<29> 1800 IF x.pgmS^nameS THEN xnd»0:irc-l:GOTO 1820 
<86) 1810 irc=SEEKNEXT(xrf,0) 

<33> 1820 VEKD 

<72> 1830 IF xnd=0 THEN 1870 

<13> 1840 flgS=CHRS(ASC(x.flS)+l) 

<73> 1860 LSET x.fl$>flg$:LSET x.pgB$sname$ 

<71> 1860 irc=ADDREC(xrf,l.l,flgS) 

<16> 1870 RETURN 
<24> 1880 ' 

<53> 1890 ’ * Fragen ob veiterverwendet 

<55> 1900 PRINT msz$"Progranii "nameS" schon analysiert. 

loschen (J/N}?":GOSU6 3740:PRINT mszSzloeS 
<75> 1910 IF iS="N" THEN xnd=0:GOTO 1940 
<57> 1920 flg$=x.fl$:GOSUB 3660'XREF löschen 
<37> 1930 xnd=l 

< 9> 1940 RETURN 
<17> 1950 • 

<S2> 1960 ’ * XREF erstellen 
<37> 1970 VHILE NOT EOF(tst) 

<47> 1980 GOSUB 2150'Zeile lesen 
<21> 1990 GOSUB 2230'Satznuomer 

< 8> 2000 GOSUB 2310'textanalyse 
(15> 2010 VEND 

<85> 2020 IF dsw THEN LPRINT CHRS(12)Seitenvorschub 
(26> 2030 dz»-l’N4ch9te Seite Überschrift 
<91> 2040 RETURN 

< 0> 2050 ' 

<43> 2060 ' * dose 

<33) 2070 CLOSE tst.xrf 

<54> 2080 osw-O'Dateien sind zu 

< 7> 2090 RETURN 
< 86 > 2100 ' 

< 4> 2110 ’ * Ende 

( 7> 2120 PRINT FNcp$(29,0)conS; 

<90> 2130 RETURN 
<98> 2140 ' 

<25> 2150 ' * Zeile lesen 
<75> 2160 GOSUB 660'Uhrzeit 
<86> 2170 LINE INPUT «tst,zeile$ 

<96> 2180 IF dsw=0 THEN GOTO 2210 

<59> 2190 IF LEN(zeile$)>88 THEN dz«dz+l:lF LEN(zeile$] 
>176 THEN äz=dz+l 

<55> 2200 GOSUB 3840:LPRINT zeileS 
(86> 2210 RETURN 
<94> 2220 ' 

<31> 2230 ' * Satznusoer feststellen 

< 5> 2240 hpo3=INSTR(zeileS," ") 

<83> 2250 snr-VAL(LEFT$(zeiIe$,hpos)) 

<91> 2260 hpos-hpos+l 

<20> 2270 slen'LEN(zeile$) 

<93) 2280 PRINT ssz$;"Zeile: ":snr; 

<11> 2290 RETURN 
<90) 2300 ' 

<30> 2310 ' * textanalyse 

<28> 2320 VHILE hpos<-slen 

<81> 2330 GOSUB 2390'wort suchen 

<37> 2340 IF xnd TEEN GOSUB 3210'in Datei eintragen 

<33> 2350 VEND 

<35> 2360 xnd-1 

< 7> 2370 RETURN 
<15> 2380 ' 

<29> 2390 ' * Wort suchen 
<48> 2400 GOSUB 2440'Anfang 
<51> 2410 IF xnd THEN GOSUB 2580'ende 
<93> 2420 RETURN 

< 2> 2430 ' 

< 8> 2440 ' * Vortanfang 
<14> 2450 FOR i^hpos TO slen 
<64> 2460 x$»HID$(zeileS,i,l) 

<96> 2470 IF xS>. AND xS<”S" THEN typ=l;GOTO 2550'Var 

iable 

<89> 2480 IF xS>''/" AND xS<":" THEN typ»4:GOTO 2550'Zahl 
<11> 2490 IF xS>"S" AND xS<"A" THEN typ»2:GOTO 2550'Fkt 
<18> 2500 IF XS=CHRS(34) THEN typ*3:GOTO 2550'Literal=" 
<85> 2510 IF xS="t" THEN typ=5:GOTO 2550’Oktal/Hexazabl 
<52> 2520 IF xS=""’ THEN 2540'Nur Kommentar 

< 3> 2530 NEXT 

<39> 2540 xn4*0:hpos«slen+l:GOTO 2560 
<13> 2550 xnd=l:bpos=i 

< 8> 2560 RETURN 
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<16> 2570 ’ 

<38) 2580 ' • Wortende 

<83> 2590 ON typ GOTO 2600,2600,2960,2760,2680 
<74> 2600 FOR i-hpoa+1 TO slen 
<53> 2610 x$-MID$( 2 eile$,i,l) 

<43> 2620 IF xS>. ÄKD xS<''ä” THEN typ=l:GOTO 2660 

<65> 2630 IP x$)"S" AKD xS<”A" THEN 2660 

<45> 2640 IF x$>'7" AND xS<”:" THEN 2660 

(18> 2650 IF THEN 2870'Begrenzer prüfen 

<14> 2660 HEXT 

<86> 2670 GOTO 2840 

<85> 2680 ' —Hexa-Zahlen 

< 5> 2690 i»hpos+i:IF MIDS(zeileS,i,l)»"H’' THEN i*i+rh 

exazahl 

<31> 2700 FOR i«i TO slen 
<55> 2710 x$-MID$(zeile$,i,l) 

<64> 2720 IF xS>”S'' AND xS<"G" THEN 2740'next 
<14> 2730 IF x$<"0” OR x$>''9" THEN 2870'Begrenzer prüfe 
m 

<10> 2740 HEXT 

<82> 2750 GOTO 2840 

<19> 2760 ’ — Zahlen 

<97> 2770 FOR i=hpos+l TO slen 

<76> 2780 x$-MID$(zeileS,i,l) 

<91> 2790 IF xS>'7'' AND x$<":" THEN 2820 

< 7> 2800 IF xSo"." THEN 2870’Begrenzer prüfen 
<93> 2810 typ=6'Realzahl 

< 6> 2820 NEXT 
<78> 2830 GOTO 2840 

<16> 2840 ' --- Wort gefunden 

<56> 2850 word$=HID$(zeile$,bpos,i-bpos) 

<41> 2860 GOTO 3070 

<96> 2870 ’ —Begrenzer prüfen 

<37> 2880 hl»INSTR(bBSk$,x$) 

< 6> 2890 IF bl*0 THEN fS*''Bgr":GOTO 3010'feblet 
<56> 2900 IF hDballen THEN j=i+l ELSE j*i 

<75> 2910 wordS=MIDS(zeileS,hpos,j-hpos) 

<50> 2920 IF MIDS(zeile$,j,l)s"{" THEN wordS=wordS+"0" 

<97> 2930 IP xS=. THEN isslen 

<48) 2940 IF xS*CHRS{34) THEN i=i-l 
<40> 2950 GOTO 3070 

<29> 2960 ' - Literal 

<14> 2970 isINSTR(hpos+l,2eile$,CHR$(34)) 

<19> 2980 IF i=0 THEN fS="Lit’';GOTO 3010'fehler 
<55> 2990 wordS“HI0S(zeileS,hpO3,i-hpos+l) 

< 8> 3000 GOTO 3070 

<14> 3010 ■ -Fehler 

<32> 3020 vordS-HIDS(zeile$,hpos) 

<25> 3030 PRINT CHRS(10)CHR${13)"Fehler >''fS"< in Satz: 

"sDr;wordS 
<24> 3040 STOP 
<90> 3050 xnd=0:hpos=slen+l 
<64> 3060 GOTO 3190 
<31> 3070 ' -O.K. 

<44> 3080 IF wordS*”DATÄ” THEN i=slen+l 
<88> 3090 hpos*i+l 

<70) 3100 IF xtyp-typ<0 THEN xnd»0:GOT0 3190 

<60) 3110 IF typ<>4 THEN 3180 

<85> 3120 IF VAL(¥ord$)<10 THEN xnd=0:G0T0 3190 
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<25> 3130 IF RIGHTS(word$,l)<>"J" THEN wordS=word$+” " 
U4> 3140 word$*RIGHTS(”... "+wordS,7) 

<50> 3150 GOTO 3180 

< 3> 3160 IF vord$<>"DATA" THEN 3180 
<67> 3170 isslen+l'Rest ignorieren! 

<38> 3180 xnd*l 

<10> 3190 RETURN 
<89> 3200 ' 

<40) 3210 ’ * Datei eintragen 
<11> 3220 'PRINT " "wordS; 

<98> 3230 GOSUB 3270’leseD 

<48> 3240 IF xnd THEN GOSUB 3370'scbreiben 

< 0> 3250 RETURN 

< 8> 3260 ' 

<68> 3270 ' * Satz lesen, wenn schon da 
<87) 3280 lfordS*LEFTS(wordS,20)'Nur 20 Stellen 
<55> 3290 IF SEEKKBY{xrf.0,0.wordS+flgS)>0 THEN zal=0:G 
OTO 3350 

<58> 3300 GET xrf 

<67> 3310 zal=CVI(x.zal$) 

<78> 3320 IF CVI(x.$(zal))+32767*snr THEN xnd=0:GOT0 33 
50 

<68> 3330 IF zal<13 THEN 3350'return 

<95> 3340 IF SEEKNEXTixrf,0)=0 THEN 3300 ELSE 2al=0:GOT 
0 3350 

< 2> 3350 RETURN 
<10> 3360 ■ 

<85> 3370 ' * Satz schreiben 

< 9> 3380 zal^zain 

<96> 3390 LSET x.zal$sHKI$(zal):LSET x.S(zal)-KRI$(snr' 
32767) 

<42> 3400 IF zal*l THEN LSET x.fS=fl 9 $:irc»ADDREC{xrf,0 
,0,wordS+flgS) ELSE PUT xrf 
<91> 3410 RETURN 

< 0> 3420 ' 

<80> 3430 ' * XREF ausgeben 

<69> 3440 vord$=STRING$(255,CHR$(255)} 

<49> 3450 IF SEEKRANK{xrf,0,0)*0 THEN 'nix da 

<78> 3460 GET xrf 

<S2> 3470 VEILE irc<102 

<41> 3480 IF x.f$<>£lg$ THEN 3610 

< 7> 3490 nwordS*FETCHKEY${xrf):nword5=LEFTS(nwordS,LEN 

(DwordS)-l):IF nword$sword$ THEN 3520 ELSE word$=n 
frord$ 

<45> 3500 zz-l:PRINT wsz$vord$; 

< 4> 3510 GOSUB 3840:LPRXNT nz$;LEFT$(word$,10);TAB(13) 

<21> 3520 ie»CVI(x.zal$) 

<98> 3530 FOR i=l TO ie 
<37> 3540 IF zz<13 THEN 3570 
<15> 3550 zz=l 

<35> 3560 GOSUB 3840:LPRINT nzSTAB(13)" 

<59> 3570 'PRINT " "DECS(CVI(x.$(i))+32767,"####1")j 
<86> 3580 LPRINT '' "DECS (CVI(x. S (i) )+32767,'•#####"); 
<94> 3590 zz=zz+l 
<96> 3600 NEXT 

<98> 3610 IF SEEKHEXT(xrf,0X102 THEN GET xrf ELSE irc= 
1000 

<31> 3620 VEND 
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<71> 3630 LPRINT CHRS(12); 

< 5> 3640 RETURN 
<13> 3650 ■ 

<49) 3660 ' * XREP-löschen 
<44> 3670 irc*SEBKRANK(xrf,0,0) 

<74> 3680 WHILE irc<*101 

<70> 3690 IF RIGHTS(FETCHKEYS(xrf),l)=flgS THEN irc=DEL 
KEY(xrf,0):GOTO 3710 
<83> 3700 irc=SEEKNEXT(xrf,0) 

<30> 3710 WEND 

< 1> 3720 RETURN 

< 9> 3730 ’ 

<84> 3740 ■ * (J/N) lesen 

<10> 3750 iS*"'':VHILE i$="”:iS=UPPER${INKEY$) :WEND 
<50> 3760 IF AMD THEN PRINT bellS;:GOTO 

3750 

<16> 3770 RETURN 
<24> 3780 ’ 

<92> 3790 ’ • Zahl lesen 
<81> 3800 iS=’"’:WHILE i$="":iS»INKEYS:WEMD 
<39) 3810 IF iS<"0" OR i$>”9" THEM PRINT bellS;:GOTO 38 
00 

< 3) 3820 RETURN 
<11> 3830 • 

<98> 3840 ' * Position 
<55> 3850 dz*d 2 +l 

<97) 3860 IF dz<=0 THEN 60SUB 3900'1. Überschrift 
<41> 3870 IF dz>dlz THEN LPRINT CHRSU2); ;GOSUB 3920 
<21> 3880 RETURN 
<29> 3890 ■ 

<96) 3900 ’ * 1. Überschrift 

< 6> 3910 LPRINT dr$FNädzrS{pnanS):GOTO 3940 
<90) 3920 ’ * Oberschrift 

(60> 3930 LPRINT FNddzr$(pnamS) 

<26> 3940 LPRINT SPACES(72);hdt$". "ztdS 
<17> 3950 stnr=stnr+l:LPRINT SPACES(78)"Seite: "DECS(st 
nr,"#i”) 

<64> 3960 LPRINT fettSSTRINGS(87,fetaS 
<94> 3970 dz*4:GOSUB 660 
<23> 3980 RETURN 
<31> 3990 ■ 

<38> 4000 ' • Fehler —>Dateiein zu 
<61> 4010 CLOSE xrf,tst 
<36> 4020 PRINT con$; 

<17> 4030 ON ERROR GOTO 0 


LISTING >DXREF<, REMARK = >'<. 

< 1> 10 ' * XREF-Druckprograitm 

< 2 > 20 ■ 

C51> 30 DEFINT a-z 

<55> 40 GOSUB 650'Monat8tage 

<57> 50 GOSUB 130’init 

<82> 60 GOSUB 710:ztdS®ztS'Uhr, Druckzeit abfragen 
<33> 70 GOSUB 880'open 

<20> 80 IF xnd THEN GOSUB 990'XREF-Datei prüfen.pga-Fla 

g 

< 4> 90 IF xnd TEEN GOSUB 1150'XREF ausgeben 

<93> 100 GOSUB 1070'close 

<69> 110 GOSUB lllO'Ende 

<27> 120 END 

<24> 130 ' 

<26> 140 ■ * Init 

<74> 150 -Bildschirmsteuerzeichen 

<68> 160 esc$=CHRS(27):cls$*esc$+"E"+escS+"H"*Cursor -> 
home,löschen 
<24> 170 bellS«CHRS(7} 

<76> 180 nzS*CBR${10)+CHR$(13). 'Neue Zeil 

e 

<23> 190 loe$=esc$+"J’':zloeS=escS+'*K". 'löschen B 

ild,Zeile 

<89> 200 i7$*escS+"p":iva$=escS+"q". 'invers ei 

n, aus 

<45> 210 uonS=escS+"r":uofS“escS+"u". 'unterstre 

ichen ein,aus 

<56> 220 con$=escS+"e":cofS=escS+"f". 'Cursor ei 

n/aus 

<41> 230 WIDTH 255 

<89> 240 -Druck-Steuerzeichen 

<22> 250 duonSaescS+"-"+"l":duofS®escS+"-''+''0"'Druck un 
terstreichen ein,aus 
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< 2> 260 korr5=esc5+"x"+"i’';entwS=escS+"x"+"0"'Korrespo 

ndenz/Entwurf 

<26> 270 fettS=esc$+"E":feta$*esc$+'’F". 'fett ein, 

aus 

<91> 280 elitS=escS+”M":dop$=CHRS(14):dopaS=CHRS(20)'El 
ite,doppelt 

<78> 290 drS=escS+"c"+elitS+escS+"l’'+CHR$(8)+e3cS+"Q"+C 
HRS(98)+escS+"C"+CHRS(72)+esc$+"N"+CHRS (5) 

<39> 300 dl2=63:dz=-l 

<79> 310 Endlos.Rand links.rechts.... 

. Seitenlange. Zeilen frei 

<75> 320 '. -Funktiondef. 

<29> 330 DEF FNcpS(z,s)=escS+"Y"+CBR${32+z)+CHR$(32+s) 
<52> 340 DEF FNbzr$(x$)»FNcp$(az,0)+zloeS+5FACE$((90-LE 
N(xS))/2)+x$ 

<94> 350 DEF FNdzrS(xS)=SPACES((76-LEN(xS))/2>+xS 
<28> 360 DEF FNdäzr$(xS)=SPÄCE$(39-LEN{xS))+dop$+fettS+ 
duonS+x$+duofS+fetaS+dopa$ 

<77> 370 Bisz$*rNcp$(29,15)+zloeS:sszS»FNcp$(20,39)+" 
ws2S»FNcp$(20,39)+zloeS 

< 9> 380 '... - Programaname 

<36) 390 PRINT clsScofS; 

<93> 400 GOSUB 710 
<98) 410 az=3 

<81> 420 PRINT FNbzrSC'XREF-DruckprograEUD") 

<41> 430 PRINT 

<70> 440 PRINT DXREF druckt XREF-Bibliotheken aus. d 
ie ait XXREF erstellt wurden. Die Bibliotheken" 
<56> 450 PRINT ". müssen sich im H:Laufwerk befinden." 
<47> 460 PRINT 

< 7) 470 naiieS=STRIPS(FINDS("*.XDT",l)) 

<71> 480 IF nameS»"" THEN PRINT FNbzr$("Leider ist kein 
e Bibliothek vorhanden!"):END 
<16> 490 az=9:libpos$*FNcp${az,5) 

<14> 500 PRINT FKbzrS("Folgende Bibliotheken sind vorha 
nden:") 

<41> 510 i=l:j=5:az*az+2 
<93> 520 WHILE nameSO"" 

<40> 530 PRINT FNcpS(az,j)nameS 

<71> 540 i=i+l:j=j+15:IF j>75 THEN az*az+l;j=5 

(29> 550 name$=STRIPS(riND$("‘.xdt".i)) 

<95) 560 WEND 
<82> 570 a2=az+2 

<22> 580 PRINT FNcpS(az,5)"Bibliotheksname (ohne '.XDT' 
): "conS?:INPUT" ",nameS 

< 2> 590 IF naneS»”" OR INSTR(xsysS,CHRS(27))<>0 THEN E 

ND 

<26> 600 Dame$=LEFTS(UPPERS{name$),8):i=IN5TR(QameS,"." 

):IF iOO THEN name$=LEFT$(name$,i-l) 

<605 610 PRINT libpos$loeS"Bibliothek: "naiBeS".XDT" 

<33> 620 DaaeSsUPPER$(LEFT$(name$,8)) 

<78> 630 RETURN 
<31> 640 ' 

<33) 650 ' • Honatstage 
<'»0> 660 DIM atg(12) 

<79> 670 DATA 31,29,31.30,31,30,31,31.30.31,30,31 
<35> 680 FOR i*l TO 12: READ mtg(i):NEXT i 
<90> 690 RETURN 
<24> 700 ' 

<26> 710 ' * Uhr abfragen 

<62> 720 d=256*PBEK(&HFBF5)+PEEK(&HFBF4)-3287'1.1.87 
<50> 730 FOR jj*87 TO 100 

< 9> 740 IF (jj MOD 4) THEN tt*365 ELSE tt*366 
<96> 750 IF d>tt THEN d*d-tt ELSE 770 

<52> 760 NBXT 

<31> 770 IF (jj MOD 4) THEN iDtg(2)=28 

<50> 780 FOR mi!i=l TO 12 

<46> 790 tt=mtg{mni) ;d=d-tt 

<62> 800 IF d<=0 THEN 820 

<43> 810 NEXT 

<12) 820 tt*d+tt 

< 9> 830 hätS=DECS(tt,"#!")+"."+DECS(ffiffi,"il")+"."+DBCS( 

<46> 840 zt$=REXS(PEEK(&RFBF6),2)+'':"+HEXS(PEEK{&HFBF7) 

,2)'Uhrzeit min. 

<11> 850 PRINT FNcpS(l,65)hdt$". "ivSztSivaS; 

<86> 860 RETURN 
<39) 870 ' 

<41> 880 ' * Open 
<61> 890 DIM x.S(13) 

<94> 900 xrf=2 
<10> 910 BUFFERS 9,7 

ListingXXREF 
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<66> 

920 

sl=32 

<51> 

930 

IF FIND$(naiBeS+".XDT")="" THEN PRINT JiiszS"XREF 


-Datei existiert nichtl";:xnd=0:GOTO 970 

<87> 

940 

OPEN "K",xrf.naBie$+".XDT",naiDeS+".XDX'M,sl:xn 


d=l 

<77> 

950 

FIELD xrf,2 ÄS x.zalS,! AS X.fS,2 AS x.$(l>,2 


AS X 

.S(2),2 AS x.$(3),2 AS X.S(4),2 AS x.S(5},2 AS 


x.$(6),2 AS X.S(7),2 AS X.S{8),2 ÄS x.S(9),2 AS X 
.S(10),2 AS X.$(ll),2 AS x.S(12),2 AS x.$(13) 

<76> 

960 

FIELD xr£,l AS x.fl$,8 AS x.pgo$ 

<89> 

970 

lETÜRN 

<42> 

980 

' 

<44> 

990 

' * XREF-Datei prüfen (Pgni schon analysiert?} 

<10> 

1000 

xnd»! 

<37> 

1010 

irc=SBEKRANK(xrf,0,1) 

<52> 

1020 

IF irOO THEN PRINT aisz$"Datei leer!";xnd=0:G 


OTO 

1050'Datei leer 

<30> 

1030 

xxi*l 

<49> 

1040 

IF SBEKNEXT(xrf.O)=101 THEN xxi=xxi+l 

<93) 

1050 

RETURN 

< 2) 

1060 

■ 

< 5> 

1070 

' • dose 

<35> 

1080 

CLOSE tst,xrf 

< 6> 

1090 

RETURN 

<85) 

1100 

• 

<88> 

1110 

' * Ende 

<35> 

1120 

PRINT conS; 

<89> 

1130 

RETURN 

<97> 

1140 

• 

< 1> 

1150 

' * XREF ausgeben 

<79> 

1160 

PRINT 

<90> 

1170 word$=STRINGS(255,CHRS (255)) 

<50> 

1180 

IF SEEKRANK(xr£.0,0}*0 THEN ‘nix da 

<79> 

1190 

GET xrf 

<25> 

1200 

WHILE irc<102 

<74> 

1210 nwordS=FETCHKEY${xrf) 

(55> 

1220 

IF LEFTS(nword$,2)="FN" THEN 1240 

<64> 

1230 

IF LEFTS(nxord$,l)<‘'a" OR LEFTS (word$, 1) >’’z" 


THEN 

1420 

<88> 

1240 

nwordS=LEFTS(nwordS,LEN(nwordS)-1):IF nwordS= 


vordS THEN 1280 ELSE wordS-nwotdS 

(53> 

1250 

flgS®"": 2 Z®l:PRINT wszS;wordS; 

<16> 

1260 

GOSUB 1470:LPRINT nz$;LEFTS(wordS,10); 

<31> 

1270 

IF xxi=l THEN LPRINT TAB(20):GOT0 1340 EL 


SE 1290 

<8l> 

1280 

IF flgS=X.fS OR xxi=l THEN GOTO 1340 ELSE GOS 


UB 1470:LPRINT:z2*1 

<47> 

1290 

dnsS=FETCHKEYS(xr£) 

<14> 

1300 

irc=SEEKKEY(xr£.0,l,x.f$)iCET xrf 

<28> 

1310 

LPRINT TAB{12)fX.pgmS?":"; 

<83> 

1320 

irc*SBBKKEY(xr£,0,0,dnsS):GET xrf 

<59> 

1330 

flgS=x.£$ 

<21> 

1340 

ie*CVl(x.zal$) 

<98> 

1350 

FOR i*l TO ie 

<85> 

1360 

IF Z2<12 THEN 1390 

<15> 

1370 

zz=l 

<29> 

1380 

GOSUB 1470:LPRINT nzS;TAB(20); 

(83> 

1390 

LPRINT " "DECS(CVI{x.S(i))+32767,"###f#'‘)r 

<63> 

1400 

zz=zz+l 

(93> 

1410 

NEXT 

<95> 

1420 

IF SEEKNEXT(xrf,0X102 THEN GET xrf ELSE irc* 


1000 


<28> 

1430 

VEND 

<17> 

1440 

LPRINT CHRS(12) 

< 2> 

1450 

RETURN 

<10> 

1460 

' 

<13> 

1470 

' • Position 

<54> 

1480 

dz=dz+l 

<20> 

1490 

IF d2<=0 THEN GOSUB 1530'1. Überschrift 

<51> 

1500 

IF dz>dlz THEN LPRINT CHRS{12):GOSUB 1550 

<91> 

1510 

RETURN 

< 0> 

1520 

■ 

< 3> 

1530 

' * 1. Überschrift 

<79> 

1540 

LPRINT drSFNddzr$("Querverweise: "+nameS):GOT 


0 1570 

< 9> 

1550 

' • Überschrift 

<25> 

1560 

LPRINT FNddzrS("Querverweise: "+name$) 

<84> 

1570 

LPRINT SPACES(73);hdt$" "ztS 

<16> 

1580 

stnr=stnr+l:LPRINT SPACE$(78)"Seite: "DEC$(st 



<$3> 

1590 

LPRINT fett$STRINGS(87,"-")fetaS 

<93> 

1600 

dzM 

<93> 

1610 

RETURN 


HHSSE^SPKU 
EU £Qet>miPREi5EN! 


CPC CPC PC'S 
Kass. Disk. (CGA) 


Aa 



52.95 

ARKANOID 

23.95 

34.95 


BAR^IAN 

' 26.95 

38.95 


BARD'STALf 



”“m.95 

BOULMÖASH 

CONSTRUCnONKIT 

26.95 

38.95 


BREAKTHRU 

9.95' 

14.95 


CYRUS3DCHESS 

26.95 

38.95 

52:95_ 

DEEPER DUNGEONS 

12.95 

18.95 


DEFENDER 

OF THE CROWN 




DEMOLTTION 

CONSTRUCnONSET 



29.95 

FUGHT SIMULATOR 2 



129.95 

GAUNTIH 

26.95 

J8-95 


GUNSHIP 



99.95 

HAÜbl DES TODES 

26.95 

38.95 


IKARIWARRIORS 

2195 

34.95 


INHLTRATOR 



52.95 

KONAMI'SCOIN-OPHITS 
(5 Spiele) 

26.95 

38.95 


MARBLEMAONESS 

CONSTRUaiONSET 

26.95 



MERCENARY 
COMPENOlUM (deutschj 


52.95 


METRÖCROSS 

26.95 

38.95 


NEMESIS 

23.95 

34.95 


PAPERBOY 

23.95 

34.95 


OUARTET 

26.95 

^.95 


QUIWI 


29.95 


ROADRUNNER 

26.95 

38.95 


BÖCK'NWRESTLE 



52.95 

SOLOMONS KEY 

26.95 

“3195 


SPACE HARRIER 

9.95 

14.95 


STARGUDER 

38.95 

52.95 

52.95 

SUPER aof 

9.95 



trailbläze'r 

9.95 

14.95 


TRIO PAK (3 Spiele) 

_23.?5 

34.95 


TWO-ON-TWO 

BASKETBALL 



64.95 

WIZBALL 

23.95 

38.95 


WONDERBOY 

26.95 

38.95 


WORLD CLASS 
LEADERBOARD GOLF 

26.95 

38.95 


WINTER GAMES 

26.95 

38.95 

52.95 

WORLD GAMES 

WORLD TOUR GOLF 

26.95 

38.95 

64.95 

64.95 


SPITZEN-SOFTWARE 
MADE IN GERMANY 

m\FW 



F. Schifer - Schnackebusdi 4 
5106 Roetgen S 02408/5119 
(nicht aufgeben!) 

Telefax 02408/5213 

Die wt rt rtiwi sich zai. Porto* 
und Vorpadcung (ca. 5.* OM); 
Vtrund nur per Nachnahme. 



CP 10 


Wenn Sie unseren großen 
Gesamt-Katalog kostenlos 
haben möchten, sdikken 
Sie bitte diesen Coupon an: 

KINGSOFT 

F. Schäfer * Schnacitebusch 4 
5106 Roetgen 
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Derzeit werden bei uns zur Aufrüstung des Joyce und Joyce Plus drei Festplatten- 
Subsysteme angeboten: 

VORTEX WD2000 (im Folgenden kurz WD2000): DM 2198. - 

WINCHESTER EXPANSION BOX (WEB): DM 2698. - 

ASD PCWHD (kurz ASD): DM 1998. - 

(20 Megbyte-Ausführungen) 

Die zwei ei^tgenannten Geräte wurden in Heft sechs kurz vorgestellt. Angesichts 
der Preisunterschiede und der Tatsachen, daß erstens seinerzeit nicht alle Ge¬ 
räte zum Vergleich zur Verfügung standen, zweitens durch mißverständliche 
(w enngleich im Kern zutreffende) Aussagen in jenem Bericht eine kleine Kon¬ 
troverse ausgelöst wurde, sollen die Qualitäten und Eigenarten der drei Modelle 
anhand präzisierter Angaben nochmals dargelegt werden. 


Wir haben die WD2000 und die WEB 
seit Anfang April bzw. Anfang Juni 1987 
täglich im Einsatz, mal die eine, mal die 
andere; die ASD wurde uns im Juli für 
einen zweiwöchigen Test zur Verfügung 
gestellt. Wir, das ist ein Praxisteam, das 
mit dem Joyce seine Korrespondenz er¬ 
ledigt, mit einem Chef, der weniger pro¬ 
fessioneller Anwender als eher typischer 
Leser dieser Zeitschrift ist, indem er 
ständig Neues ausprobiert. Bei derart 
kunterbuntem Einsatz stellten sich über 
die Festplatten Fakten heraus, die bei 
rein »programmierter« Anwendung nicht 
unbedingt ins Auge fallen. 

Eines vorweg: Das gewünschte Betriebs¬ 
system muß bei allen Geräten weiterhin 
»gebootet« und beim Wechsel von Loco- 
Script zu CP/M und umgekehrt neu ge¬ 
startet werden. 

Man erwirbt also mit der Festplatte am 
Joyce einen Massenspeicher, mehr nicht. 
Aber mit 10 oder 20 Megabyte eröffnen 
sich schon neue Welten. Nicht zuletzt, 
weil damit gleichzeitig eine bisher nicht 
gewohnte Zugriffs- und Bearbeitungsge¬ 
schwindigkeit verbunden ist. Allein in 
diesem Punkt übrigens sind sich die Ge¬ 
räte ziemlich ähnlich: Die mittlere Zu¬ 
griffszeit liegt bei allen zwischen 80 und 
85 msec. Ansonsten sind die Unterschie¬ 


de jedoch beträchtlich. Das beginnt beim 
Äußeren (siehe Abbildungen): 


Bauart und Verbindungen 


Die WD2000 steckt in einer äußerst so¬ 
liden, kompakten Stahlbox und kann bei 
der Länge des Verbindungskabels in ei¬ 
nem maximalen Abstand von etwa 45 cm 
irgendwo in der Nähe des Joyce aufge¬ 
stellt werden. 

WEB und ASD mit ihrem größeren Ge¬ 
häuse sind als Untersatz für die Konso¬ 
le des Joyce konzipiert. Die WEB kam 
zunächst in einem stabilen Kunststoff- 
Gehäuse daher, welches zusätzlich eine 
Mulde für die Tastatur des Joyce bot. Die 
neue Ausführung hat die Form der ASD 
und ein Stahlblech-Gehäuse, während 
die ASD aus Kunststoff ist. 

Der Ein-/Aus-Schalter findet sich bei den 
britischen Modellen an der Frontplatte, 
bei der WD2000 etwas versteckt an der 
Rückseite. Die Wärme-Ableitung erfolgt 
bei der WEB über eine Metallplatte, bei 
den anderen Geräten durch einen Lüfter. 
Sie sind deshalb geringfügig lauter, die 
ASD mehr als die WD2000. 

Der Netzanschluß erfolgt bei allen Ge¬ 
räten separat vom Joyce. Die bei der 


ASD laut Handbuch vorgesehene Mög¬ 
lichkeit, den Joyce über die Platte anzu¬ 
schließen, damit er nicht mehr selbst ge¬ 
schaltet werden muß, ist bei der uns vor¬ 
liegenden Ausführung ohne Eigen-Um¬ 
bau (und Gefahr des Garantie-Ver¬ 
lustes!) nicht möglich. 

Die Datenübertragung zwischen Joyce 
und den Winchesters läuft über den Er¬ 
weiterungsbus, entweder über einen 
Stecker, der mittels der Metallklemmen 
an der Buchse des Rechners gesichert 
wird (WEB), oder durch einen Host- 
adapter, der zur Verschraubung einge¬ 
richtet ist (WD2000, ASD). Der Expan¬ 
sionport ist »nach hinten durchge- 
schlcift«, so daß die Anschlußmöglich¬ 
keit für Schnittstellen wie die CPS 8256 
erhalten ist. Die ASD wird mit dem eng¬ 
lischen Original-Adapter ausgeliefert, 
welcher nicht an den Expansion-Bus der 
deutschen PCWs paßt. Der deutsche 
Auslieferer legt deshalb zusätzliche Zwi¬ 
schenverbindungen bei, sowohl für den 
Anschluß Controller-Joyce, als auch für 
die Verbindung Controller-Zusatzgerä¬ 
te. Die Möglichkeit zur Verschraubung 
des Hostadapters wird durch zusätzliche 
Winkel wiederhergestellt; eine absolute 
Notwendigkeit angesichts der Labilität 
der Verbindung. Sie ragt um etwa 10 
Zentimeter an der Rückseite des Joyce 
heraus. Ein passender Host-Adapter, wie 
ihn die WD2000 aufweist, oder die vor¬ 
bildlich umgerüstete Verbindung der 
WEB stellen eine bessere Lösung dar. 

Mit WEB und ASD kann Joyce jederzeit 
als selbständige Einheit betrieben wer¬ 
den. So kann man beispielsweise die Ge¬ 
räte ausgeschaltet lassen, aber trotzdem 
den Joyce mit der für die Festplatten ein¬ 
gerichteten System-Software ganz nor¬ 
mal betreiben. Die jeweiligen Einbin¬ 
dungsdateien (Extension .FID) registrie¬ 
ren einfach, daß die Harddisk nicht in 
Betrieb ist, eröffnen aber ansonsten ganz 
normal den Zugriff auf CP/M-H oder 
LocoScript. Die bisher auf dem PCW 
eingesetzten Startdisketten laufen natür¬ 
lich ebenfalls, gleich ob die Festplatte 
ein- oder ausgeschaltet ist. 

Die WD2000 hingegen muß immer in 
Betrieb genommen werden, sonst geht 
gar nichts, auch nicht mit der alten Start- 
Software. Wir empfinden das nicht sel¬ 
ten als lästig, weil die Fesq)latte nicht im¬ 
mer gebraucht wird. Im Gegenteil; be¬ 
dingt durch die Art ihrer Einbindung in 
das System ergeben sich schon mal Ge¬ 
legenheiten, bei denen die WD2000 als 
Anhängsel geradezu störend ist. Da 
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Abb.l: 

Die WTyiOOO im 
stabilen Metall¬ 
gehäuse. .. 



Abb.3: 

Die ASD im 
Kunststqff-Pult- 
gehäuse... 



bleibt nichts anderes übrig, als sie vor 
dem Start abzunabeln, weshalb der Con¬ 
troller bei uns kaum fest angeschraubt 
gewesen ist. Eine derartige Aussage ist 
geeignet, Erstaunen hervorzurufen, wes¬ 
halb wir zur Verdeutlichung näher auf 
die zwischen WD2000 einerseits und den 
britischen Platten andererseits sehr un¬ 
terschiedliche Grundkonzeptionen in der 
Anbindung an den Joyce eingehen 
müssen: 


Konzeptionelle Unterschiede - 
Verhalten unter CP/M PLUS 


Winchester-Laufwerke lassen sich in der 
Regel durch ein mitgeliefertes Pro¬ 
gramm in mehrere Partitionen oder logi¬ 
sche Laufwerke einteilen. WD2000 und 
WEB lassen maximal vier Partitionen zu; 
die ASD ist nicht unterteilbar. Sie ist fest 
als Laufwerk “C“ eingestellt. Bei der 
WEB sind die Partitionen stets von »C« 
ab aufwärts benannt. Das bedeutet um¬ 
gekehrt, daß bei Anschluß dieser Fest¬ 
platten die Laufwerke des Joyce immer 
die gewohnten Kennzeichen behalten. 
Die RAM-Disk ist bei allen Winchesters 
stets mit M bezeichnet. 

Im Gegensatz dazu lassen sich bei der 
Einbindung der WD2000 durch entspre¬ 
chenden Aufruf der Einbindungsdatei 
HRDINS.COM den logischen Laufwer¬ 
ken des Gesamtsystems die Kennzeichen 
A, B, C, D, E, F in unterschiedlicher 
Konfiguration zuweisen, je nach Anzahl 
der Partitionen. Bei Teilung in vier logi¬ 
sche Laufwerke hat man die Wahl zwi¬ 
schen fünf Voreinstellungen (HRDINS 
bzw.HRDINSObis 3). Nur bei HRDINS 
ohne Zusatz behalten die Laufwerke des 
Joyce jeweils die gewohnten Kennbuch¬ 
staben A > und B > . 

Der Fülle an Vorwahlmöglichkeiten liegt 
ein Gedanke zugrunde, den wir kurz an 
einem Beispiel aus der Arbeit mit dBa¬ 
se II verdeutlichen wollen: Hatte man 
beim Betrieb des Joyce Plus seine Pro¬ 
gramme in A > oder M > liegen und die 
zugehörigen Datenbanken in B >, so 
kann man sie unverändert auf beliebige, 
getrennte Partitionen der WD2000 über¬ 
tragen, wenn man später bei jedem Pro¬ 
grammstart durch die Vorwahl dafür 
sorgt, daß bei der WD2000 die Lauf¬ 
werkskennzeichen wie für den Pro¬ 
grammablauf erforderlich eingestellt 
sind. Diese Möglichkeit besteht bei den 
englischen Festplatten nicht; die Pro¬ 


gramme müssen in jedem Fall umge¬ 
schrieben werden. 

Bei der Arbeit mit der WD2000 heißt das 
frühere Laufwerk A: dann schon mal D:. 
Damit zurechtzukommen, ist reine Ge¬ 
wohnheitssache und gewiß völlig belang¬ 
los für einen Anwender, der einmal sei¬ 
ne Voreinstellung ausgeklügelt hat und 
anschließend seine Programme arbeiten 
läßt. 

Anders sieht es aus, wenn Sie im Direkt¬ 
modus am Rechner arbeiten. Da kann es 
zunächst einmal etwas umständlich wer¬ 
den, wenn als Texteditor RPED.BAS 
eingesetzt wird. Dieses legt ja die bear¬ 
beiteten Dateien grundsätzlich in A > 
ab, gleich wo sich das so gekennzeichne¬ 
te Laufwerk physikalisch befindet. 


Noch vertrackter kann es mit der 
WD2000 werden, wenn man zwischen¬ 
drin an Programmen auf Diskette hemm¬ 
basteln möchte, bei denen die Laufwer¬ 
ke des Joyce ihre reguläre Kennzeich¬ 
nung tragen müssen. 

Kein Problem, denkt sich da der Kenner: 
Man legt beim Start die HDRINS. COM 
nach M > oder richtet mittels PROFI¬ 
LE. SUB einen Suchpfad über alle Lauf¬ 
werke an, der HRDINS.COM garantiert 
zum Aufmf findet, und schon kann man 
von einer Vorwahl zur anderen hin- und 
herschalten. Richtig, das müßte fiinktio- 
nieren, wenn’s auch lästig ist, aber we¬ 
der ist es sinnvoll noch vorgesehen: 

Nach mehrmaligem Aufruf von 
HRDINS.COM aus dem Betrieb heraus 
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wird der Bildschirm starr und ein völli¬ 
ger Neustart ist erforderlich. 

Wer sich also in derartigen Fällen absi- 
chem möchte, arbeitet besser mit dem 
Joyce allein — und muß dann die 
WT)2000 abklemmen — oder wählt bes¬ 
ser die Laufwerkskonfiguration, die alle 
Bezeichnungen beim Alten läßt; schreibt 
stattdessen zur Anpassung einmal seine 
Dateien um. Womit man im zweiten Fall 
bei der Grundeinstellung der britischen 
Hard Disks gelandet wäre. 

Uns ist bewußt — und den englischen 
Herstellern den Handbüchern nach zu 
urteilen auch — daß bei ihrer starren 
Laufwerkskennzeichnung mit einigen 
der auf dem Markt befindlichen kom¬ 
merziellen Softwarepakete Probleme 
auftreten können, die sich eben bei der 
WD2000 umgehen lassen. In derartigen 
Fällen wird von dort Rat angeboten. 

Die WD2000 führt den Joyce übrigens 
noch auf weitere Abwege: Spricht man 
Laufwerk A: beim Start aus einem Pro¬ 
gamm heraus oder per Tastatur-Eingabe 
das erste Mal an, antwortet der Rechner 
— bei im Laufwerk liegender Diskette 
wohlgemerkt, und unabhängig von der 
Kennzeichnung — mit der freundlichen 
Aufforderung »Bitte Diskette fiir “X“ 
einlegen, dann eine beliebige Taste 
drücken«. Will man nicht beim Ablauf 
einer PROFILE. SUB Datei zum Beispiel 
gezwungen sein, zum Tastendruck am 
Gerät zu sitzen, muß man vermeiden, 
dieses Laufwerk einzubeziehen. 

Beim Start mittels PROFILE.SUB 
zwingt die WD2000 den Joyce auch auf 
eine Umleitung, weil eine normale Da¬ 
tei dieses Typs mit der üblichen Serie 
von Befehlszeilen (SETDEF; SET¬ 
KEYS; HRDINS; PIP; etc.) nicht regu¬ 
lär abgearbeitet wird. Man ist zur Erstel¬ 
lung einer zusätzlichen Submit-Datei ge¬ 
zwungen, welche, aus PROFILE.SUB 
abgerufen, die gewünschten Startbefehle 
zu Ende führt. Diesen Problemchen im 
Zusammenspiel Joyce-WD2000 unter 
CP/M-h kann man, wie gesehen, zwar 
aus dem Wege gehen, aber wir fragen 
uns, ob man überhaupt gezwungen sein 
sollte, sich damit herumzuschlagen. Die 
Engländer verwenden die zweite Mög¬ 
lichkeit der Eüibindung, in dem sie ein 
für den FestplattenBetrieb modifiziertes 
CP/M-h in der Version 1.7H {»H« für 
Hard Disk) einsetzen und mitliefern, das 
im Verein mit der zuvor erwähnten 
-FID-Datei problemlosen Betrieb ergibt; 
nur eingeschränkt in der Laufwerks- 
Kennzeichnung. 


Auf die zur Erst-Einstellung des Joyce 
auf den Betrieb mit Festplatte erforder¬ 
lichen Arbeitsgänge soll hier nicht näher 
eingegangen werden. 

Da es sich um einmalige Maßnahmen 
handelt, muß man der mehr oder minder 
großen Umständlichkeit keine sonderlich 
große Bedeutung beimessen. Anders mit 
der Arbeit unter LocoScript; hier hat das 
Grundkonzq)t dauerhafte Auswirkungen 
auf den Alltagsbetrieb, weshalb wir uns 
damit etwas genauer befassen müssen: 


Konzeptionelle Unterschiede - 
LocoScript 


Die Engländer liefern LocoScript in ei¬ 
ner für den Festplattenbetrieb angepaß¬ 
ten »H-Version« mit, die Fa. Vortex ein 
kleines Programm namens LPATCH. 
COM, mittels dessen man sein vorhan¬ 
denes LocoScript selbst für den Betrieb 
mit der WD2000 modifiziert. Patch-Pro¬ 
gramm und Steuersoftware sind nur für 
die gängige LocoScript Version (1.21) 
geeignet; für zukünftige Fassungen wer¬ 
den neue Programme benötigt. 

Von den Engländern bzw. deren deut¬ 
schen Partnern weiß man, daß bei Her¬ 
auskommen des neuen LocoScript 2 in 
deutscher Version — die englische liegt 
schon vor jedem Käufer, der nach Ein¬ 
senden seiner Registratur-Karte erfaßt ist 
— ein neues LocoScript »2H« gegen Ge¬ 
bühr angeboten werden wird. Für Besit¬ 
zer der WD2000 wird es etwas umständ¬ 
licher: Sie müssen sich zunächst das neue 
LocoScript beschaffen, und dazu von der 
Fa. Vortex die zugehörigen Anpassungs¬ 
programme. 


LocoScript — 
Praktischer Betrieb 


ln Heft sechs war es schon zu lesen: Bei 
der WD2000 stoßen wir auf konzeptbe¬ 
dingte Einschränkungen. Beim »Booten« 
von LocoScript ist — je nach Anzahl der 
logischen Laufwerke, in die wir die Plat¬ 
te eingeteilt haben — durch Eingabe ei¬ 
ner Zahl von 0 bis maximal 3 (entspre¬ 
chend dem Zusatz zu HRDINS) eine 
Partition anzuwählen, und nur diese eine 
ist für die Dauer der Arbeit ansprechbar. 
In der Diskverwaltung erscheint sie als 
Laufwerk M >; die RAM-Disk des Jo¬ 
yce selbst steht nicht zur Verfügung. 


Will man auf die anderen Partitionen der 
WD2000 zugreifen, muß LocoScript neu 
gestartet werden. Die Fa. Vortex emp¬ 
fiehlt deshalb mit Recht, man solle unter 
LocoScript stets nur auf ein und dersel¬ 
ben Partition der Festplatte arbeiten. Zu¬ 
friedenstellend ist die Lösung dennoch 
keineswegs. Bei konsequenter Trennung 
von LocoScript- und sonstigen Dateien, 
ist es z.B. nicht möglich, in einer ande¬ 
ren Partition liegende dBase-Programme 
zur Bearbeitung direkt in eine Loco- 
Script-Schablone einzulesen. Da muß 
vorher unter CPM -H auf eine Diskette 
oder auf die LocoScript-Partition der 
Platte kopiert werden. 

Der Verlust der RAM-Disk wird damit 
wettgemacht, daß einerseits die WD2000 
ohnehin fast so schnell ist wie die RAM- 
Disk, andererseits deren Hauptnachteil, 
die Flüchtigkeit, auf der Platte nicht be¬ 
steht. Stimmt, aber wir empfinden die 
uns aufgezwungene Nichtflüchtigkeit 
dieser RAM-Disk eher als Nachteil, 
nämlich immer dann, wenn Texte ver¬ 
faßt werden, die wir zwar ausdrucken, 
aber nicht speichern wollen. Das betrifft 
praktisch die gesamte Korrespondenz. 

Als Begründung für die eigentümliche 
Form des Einsatzes von LocoScript mit 
der WD2000 gibt man das »sperrige« 
Dateiverwaltungs-System an, das nur auf 
zwei Disklaufwerke und eine RAM-Disk 
hin konzipiert sei. Für den Bildschirm- 
Aufbau trifft das zu: mehr als drei Lauf¬ 
werke kann das Disemanagement nicht 
zur Darstellung bringen. Verwalten 
kann es jedoch durchaus noch weitere; 
allerdings mit Einschränkungen. Dies 
wird an der WEB deutlich: 

I 

Hier sind unter LocoScript jederzeit 
sämtliche Partitionen ansprechbar, und 
die RAM-Disk steht zur Verfügung. Das 
scheint perfekt, aber leider werden der 
Vollkommenheit von LocoScript selbst 
Grenzen gesteckt. Das stellt sich heraus, 
sobald man bei dieser Platte, die mit Un¬ 
terteilung in vier logische Laufwerke 
ausgeliefert wird, einen Spaziergang 
durch die Diskverwaltung unternimmt, 
von den zwei Joyce Laufwerken ganz 
links bis zur RAM-Disk ganz rechts. j 
Über die Anzeige für die ersten zwei 
Laufwerke der Hard Disk hinweg läuft 
der Kursor noch mit der gewohnten Ge¬ 
schwindigkeit; dann wird die Fortbewe- j 
gung quälend langsam. Nach 2,5 Minu¬ 
ten (!) langt man endlich in der Anzeige 
der RAM-Disk an. Mit diesem Schleich- I 
tempo muß man sich bei jedem Such-, 
Kopier- oder Einlcsevorgang abfinden, I 
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gleich ob man die Diskverwaltung waa¬ 
gerecht oder innerhalb eines der drei an¬ 
gezeigten Laufwerke senkrecht ab¬ 
schreitet. 

Ergebnis: Bei diesem Zeitaufwand lohnt 
es sich kaum, die RAM-Diskje einzuset¬ 
zen. Die ASD ist, da sie nur ein logisches 
Laufwerk darstellt, unter LocoScript 
problemlos. 

Ausweg bei der WEB: Man stellt auf nur 
zwei Partitionen ein und nimmt den Ver¬ 
lust an übei^ichtlicher Trennung der ver¬ 
schiedenen Datei-Typen in I^uf. Zu die¬ 
sem Aspekt betonen die britischen Her¬ 
steller übereinstimmend den Wert der 
Arbeit unter verschiedenen User-Grup¬ 
pen unter CP/M. Beim neu strukturier¬ 
ten LocoScript 2 soll dem Vernehmen 
nach die mangelnde Eignung des Be¬ 
triebssystems für den Feslplatten-Betrieb 
beseitigt sein. Eine Übeiprüfting war lei¬ 
der nicht möglich, da von der gerade er¬ 
schienenen englischen Fassung auch jen¬ 
seits des Kanals noch keine Festplatten- 
Version vorlag. 


Dokumentation 


Die (englisch-sprachigen) Handbücher 
für WEB und ASD sind eher Heftchen 
von 20 Seiten Umfang, enthalten aber im 
Prinzip alle erforderlichen Anweisungen 
und Erläuterungen. Der ASD liegt zu¬ 
sätzlich eine deutsche Übersetzung bei. 
Dem LOCOSCRIPT (sic) wird darin ein 
Absatz von 5 Zeilen gewidmet, mit der 


irreführenden Aussage, man könne »die¬ 
ses Programm... von der Festplatte star¬ 
ten«. 

Zur WEB erhält man in Deutsch nur ei¬ 
nen kurzen Erläuterungstext. Das 
»LocoScript-Problem« wird darin gar 
nicht, im Handbuch leider eher beiläufig 
erwähnt. 

Das Handbuch der WD2000 ist wesent¬ 
lich kompletter, mit ausführlichen Erklä¬ 
rungen zum Modus der Einbindung und 
zusätzlichen Angaben zur internen Orga¬ 
nisation der Platte. Man ist ja an Druck¬ 
fehler in derartigen Veröffentlichungen 
gewöhnt, aber ich kann es nicht komm- 
mentarlos hinnehmen, daß die Fehlbe¬ 
zeichnung LOGOSCRIPT auch auf ei¬ 
nem Handzettel des ASD-Importeurs zu 
finden ist, und dafi mein WD2000-Hand- 
buch eine nicht unwesentliche AbbUdung 
spiegelverkehrt enthält. Letzteres Pro¬ 
blem ist jedoch It. Fa. Vortex inzwischen 
behoben. 


Hilfsprogramme 


Neben den jeweils für Installation und 
Normalbetrieb der Hard Disks erforder¬ 
lichen Programmen finden sich auf den 
Systemdisketten der Engländer noch ei¬ 
nige Zusatzprogramme, deren Nutzen 
jedoch durch mangelnde Erläuterung in 
der Dokumentation erheblich einge¬ 
schränkt ist. 

Mir gefiel an der WEB jedoch, daß sie 
nunmehr mit einem Programm namens 


DRIVE.COM ausgeliefert wird, wel¬ 
ches bei der Einbindung sämtliche Par¬ 
titionen einmal anspricht und über Rest¬ 
kapazität und Datei-Typen Auskunft 
gibt. 

Eine absolute Notwendigkeit auch bei 
Festplatten ist die Datensicherung. Da 
die Dateigrößen häufig das Fassungsver¬ 
mögen einer einzelnen Diskette überstei¬ 
gen, werden hierfür spezielle »Backup- 
Programme« erforderlich, die den Da¬ 
tenbestand geordnet auf mehrere Disket¬ 
ten verteilen (und Rück-Kopien ermög¬ 
lichen). Für die ASD fehlt ein solches 
Programm und ist nur nachträglich in 
England erhältlich, was in der deutschen 
Dokumentation nicht einmal Erwähnung 
findet. Den anderen Festplatten sind Ar¬ 
chivierungsprogramme mit den erforder¬ 
lichen Erläuterungen beigegeben. 


Bezugsquellen 


Die WD2000 ist bei der 
Fa. Vortex, Falterstraße 51-51, 

7101 Flein, 

oder im Fachhandel erhältlich. 

Die englischen Festplatten bei den Im¬ 
porteuren: 

ASD: Fa. Weeske, Potsdamer Ring 10, 
7150 Backnang 

WEB: Fa. Werder Nachrichtentechnik, 
Bramfelder Chaussee 215, 2000 Ham¬ 
burg 71. 

(Dr. K. Stratemann) 


FÜR NIXGIBTS NIX 

Aber für gute Programme und Tips & Tricks umso mehr 


Für den 
Programmhit 
des Monats 

1000 ,- 



Und für den 
Top-Tip 
des Monats 
ganze 


500 ,- 


Das sind doch gute Argumente, Ihr Programm auch 
einmal zum Hit des Monats werden zu lassen. 
Probieren geht über Studieren. 

Bitte richten Sie Ihre Einsendungen an: 

DMV Verlag, Fuldaer Str. 6, 3440 Eschwege 
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14-Bit Inport 


Die folgende Schaltung stellt einen 14 
(0 Bit parallel In-Port dar. Besondere 
Vorteile sind die geringen Kosten (ca. 
30,- DM)« die einfache Bedienbarkeit 
im Basic, einfache Anpassung an ver¬ 
schiedene Pegel und optimalen Schutz 
des Rechners durch Verwendung von 
Optokopplern. 


Funktionsweise 


Die mechanischen Schalter der Joysticks 
0 und 1 (jeweils maximal sieben), werden 
durch Optokoppler ersetzt. Der Varia¬ 
blenwert JOY (0) ändert sich, wenn einer 
der sieben Optokoppler, die mit Pin 9 
verbunden sind, durchschaltet. JOY(l) 
ändert sich entsprechend beim Durch¬ 
schalten auf Pin 8. Damit sich die beiden 
Joysticks nicht gegenseitig beeinflussen 


(was bei 14 mechanischen Schaltern der 
Fall wäre), müssen Pin 8 und 9 entkop¬ 
pelt werden. Dies geschieht hier automa¬ 
tisch durch die im Optokoppler vorhan¬ 
denen Diodenstrecke. 


Achtung 


Wertigkeitsfolge (1, 2, 4, 8, 16, 32, 64) 
entspricht der Pin- Reihenfolge 1, 2, 3, 
4, 6,7,5! 

Damit ist es nun möglich, 4096 verschie¬ 
dene Kombinationen an den Eingang des 
Interfaces zu legen. Mit der Basic-An- 
weisung 

PRINT 128 * JOY (1) -I- JOY (0) 
erhält man den dezimalen Wert der Ein¬ 
gangsinformation. Zur Kontrolle ist es 
jedoch sinnvoll, die Eingangspegel mit 
dem Befehl 

PRINT BIN$(JOY(l),7), 


BIN$(JOY(0),7) 
binär sichtbar zu machen. 

Da die Joysticks teilweise mit der Tasta¬ 
tur gleichberechtigt sind, hat man mit 
dem Schalter S1 die Möglichkeit, das In¬ 
terface abzuschalten. Ein Nachteil ist die 
relativ langsame Abfrage der Joysticks 
(50 Hz), so daß eine aktuelle Information 
mindestens 20 ms anliegen muß, um si¬ 
cher erfaßt werden zu können. 


Praktische Anwendung 

1. überspielen eines ASCII-Textes (auch 
Programm) von einem beliebigen Rech¬ 
ner mit Centronics Schnittstelle. Der 
CPC simuliert dabei einen Drucker, so 
daß eine 7-Bit Ausführung (JOY (0)) ge¬ 
nügt. Es wird DO bis D6 des Senderech¬ 
ners und GND mit dem Interface (sicher¬ 
heitshalber über einfache Treiber) ver¬ 
bunden. Zusätzlich wird die Busy-Lei- 
tung der Sender-Centronics mit GND 
über einen NPN-Transistor verbunden. 
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welcher über die Centronics des CPC an¬ 
gesteuert wird. Dazu muß Pin 11 der 
CPC Centronics mit GND (damit der 
CPC immer senden kann) und eine Da- 
tenleitung (z.B. DO) über Widerstand 
und Kondensator mit der Basis des 
Transistors verbunden werden. Außer¬ 
dem ist ein gemeinsamer GND nötig. Mit 

PRINT #8, CHR$<1); 

schaltet nun der Transistor durch und si¬ 
muliert dem Senderechner einen emp¬ 
fangsbereiten Drucker, worauf er das 
ASen-Zeichen zum Interface schickt. 
Dieses kann nun mit 

PRINT CHR$(JOY (0)); 

sichtbar gemacht werden (Vorsicht bei 
Steuerzeichen). Die R C Kombination 
muß so gewählt werden, daß der Sende¬ 
rechner genau EIN Zeichen abschickt 
(probieren). 

Die empfangenen ASCII-Zeichen kön¬ 
nen nun entsprechend als Text bzw. Pro¬ 
gramm weiterverarbeitet werden. 

2. Einlesen eines AD-Wandlers. Die Da¬ 
tenleitungen des Wandlers werden mit 
den Datenleitungcn des Interface verbun¬ 
den (evtl, über Treiber). Der sonst eigen¬ 
ständige AD-Wandler muß nun nur noch 


U Bit Inport 



Abh. 3: Schahplan 

den START CONVERSION Impuls (von 
der CPC-Centronics erzeugt) bekommen 
und legt damit den neuesten Wert an In¬ 
terface. 

So ist es relativ einfach und billig, einen 
12 Bs AD-Wandler am CPC zu be¬ 
treiben. 



Abb. 4: Anschlußbelegungsplan 


Das Layout 

Ein 9-Bit Interface ist für die meisten Op¬ 
tokoppler (hier SU 25) geeignet; der Wi¬ 
derstand RI kann hier z. B. 470 Öhm, für 
einen Eingangspegel von 5 V betragen. 

(R.Linsenmeyer) 



DIE BESTSELLER ZUM BESTSELLER: 

SCHNEIDER PC: BASIC-2 PRAXIS unter 
QEM-Desktop 

Das Buchkonzept: schnelle Einführung in die Skelettbe¬ 
fehle aller BASIC-2-Programme. Kommentierte Übersicht 
des gesamten BASIC-2-Befehlsrepertoires. Befehlserklä¬ 
rungen über Beispielanwendungen. Am Schneider PC 
erprobt. Beste Rezensionen! 

Prof. Dr. A. Lien, 450 Seiten, Softcover, DM 59,- 

SCHNEIDER PC: DOS Plus und GEM Desktop 

Das Buchkonzept: Antwort auf die Frage ‘wozu Betriebs¬ 
systeme?’ durch übersichtliche Darstellung des typischen 
PC-Alltags mit Disketten/Platten formatieren, Dateien ko¬ 
pieren und verwalten, Fremdprogramme starten, Routine¬ 
eingaben über Miniprogramme auf Tastendruck reduzieren 
etc. Zeigt ausführlich den Bedienkomfort des SCHNEIDER 
PC durch GEM Desktop und Maus. 

Dr. I. Sisa, Dr. A Klüver, 320 Seiten, Softcover. DM 49,- 

MS DOS: Einfache Zugänge 

Das Buchkonzept: MS DOS-Auswahl für den Alltag, unor¬ 
thodoxe Erklärungen für Erstanwender, sofort anwendbare 
Befehlszeilen für Ungeduldige, schnelles Nachschlagen 
durch moderne Desktop-Textgestaltung. An IBM PC und 
Schneider PC erprobt. 

Robert Fürst, 176 Seiten, Softcover, DM 39,- 
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Cutthroats 


Eine einsame Insel, irgendwo in der 
Südsee. Eine Insel, so klein und 
dreckig, daß sie auf fast keiner Karte 
eingezeichnet ist. Einige herunterge¬ 
kommene Häuser, ein Hafen, zwei 
Kneipen und viele Zwielichte Gtötalten 
sind die wesentlichen Attraktionen von 
Hardscrabble Island. Doch mit ziem¬ 
licher Sicherheit befinden sich die 
Wracl» von vier Schiffen in unmittel¬ 
barer nähe der Insei. 


Irgendein widriger Wind hat Sie nach 
Hardscrabble Island getragen. Eine win¬ 
zige, gottverlassene Insel, irgendwo in 
der Südsee. Irgendwie befinden Sie sich 
gerade inmitten einer nicht enden wol¬ 
lenden Pechsträne. 

Sie liegen in Ihrem schäbigen Hotelzim¬ 
mer, in einem mindestens ebenso schä¬ 
bigen Bett. Draußen entlädt sich gerade 
ein tropischer Gewittersturm. Die hefti¬ 
gen Windböen wühlen sich durch die 
Wipfel der Palmen. Immer wieder po¬ 
chen Regenschauer an die geschlossenen 
Läden Ihres Fensters. Während Sie so 
auf Ihrem Bett liegen und darüber nach- 
denken wie Sie mit Stil wieder von die¬ 
ser gottverlassenen Insel wegkommen, 
rumort es an der Türe Ihres Zimmers. 

Sie öffnen und Hevlin, ein Matrose den 
Sie seit einiger Zeit nicht mehr gesehen 
haben, steht in der Tür. Helvin ist sicht¬ 
lich betrunken und erzählt unzusammen¬ 
hängendes über ein Besäuftiis in einer der 
örtlichen Kneipen. Noch während er sei¬ 
ne Geschichte daherstammelt gibt er Ih¬ 
nen ein Buch, das eigentlich jeder auf 
Hardscrabble Island kennt. Es ist die all¬ 
seits bekannte Abhandlung der Hard¬ 
scrabble Historical Society über die vier, 
rund um Hardscrabble gesunkenen 
Schiffe. 


Viele halten diese Geschichten für alte 
Märchen, denn bisher hat noch niemand 
auch nur einen Anhaltspunkt für die Exi¬ 
stenz der Wracks gefunden. Obwohl 
Hevlin sturzbetrunken ist, sieht man ihm 
deutlich an, daß er Angst hat. »Ich habe 
zuviel getrunken und wohl auch zuviel 
erzählt« lallt er, während er sich immer 
wieder, soweit es sein Zustand zuläßt, 
gehetzt umschaut. »Kannst du dieses 
Buch für mich aufheben? Ich hole es ab, 
wenn es mir wieder besser geht.« Noch 
während Sie das Büchlein genauer in Au¬ 
genschein nehmen verschwindet Hevlin 
wieder im dunklen Korridor vor Ihrem 
Zimmer. 

Einigermaßen ratlos legen Sie sich wie¬ 
der auf Ihr Bett. Gedankenverloren blät¬ 
tern Sie das Buch durch. In der Einlei¬ 
tung des Buches findet sich auch eine 
Karte von Hardscrabble Island und der 
umgebenden Gewässer. Irgendjemand, 
wahrscheinlich Hevlin, hat auf dieser 
Karte nächträglich einige Markierungen 
angebracht. Insgesamt vier. Jede dieser 
Markierungen ist gekennzeichnet, mit 
Sao Vera, The Fianna, S.S. Leviathan 
und H.M.S. Intransignet. 

Die Namen der vier legendären Wracks 
die in den Tiefen rund um Hardscrabble 
Island liegen sollen. Sollte Hevlin tat¬ 
sächlich die Wracks gefunden haben, 
hatte er vielleicht deswegen Angst? 
Während Sie so daliegen und nachden- 
ken, fordert ein harter Tag seinen Tribut. 

Als Sie am nächsten Morgen aufwachen, 
entdecken Sie eine Mitteilung, die ir¬ 
gendjemand unter Ihrer Türe durchge¬ 
schoben haben muß. Lapidarer Wortlaut 
der Nachricht: Treffen uns um 8:30 Uhr 
im Shanty. Das Shanty ist eine der bei¬ 
den Kneipen die es auf Hardscrabble Is¬ 
land gibt. Wo Sie diese Spelunke finden 
wissen Sie und eigentlich gibt es keinen 
Grund nicht einmal nachzusehen wer da 
etwas von Ihnen will. 

Unten im Foyer Ihres Hotels erfahren Sie 
dann die schockierende Neuigkeit: Hev¬ 
lin ist tot, ermordet. Das kleine Buch das 
der Unglückliche Dinen gestern zum 
Aufbewahren gab, scheint auf einmal aus 
glühenden Kohlen zu bestehen. Sollte 
diese Broschüre der Grund für Hevlins 
Tod sein und wenn ja, weiß der Mörder 
daß Hevlin Dinen dieses Buch gab? 

Plötzlich bekommt auch die mysteriöse 
Nachricht einen Sinn. Denn wer auch 
immer diesen Zettel unter Ihrer Tür 
durchschob, der weiß auch bestimmt, 
daß Sie der beste Berufstaucher auf der 
ganzen Insel sind. Trotz allem entschlie 


ßen Sie sich doch dazu, das Shanty um 
8:30 Uhr aufzusuchen. 

Während Sie so durch die Stadt in Rich¬ 
tung Shanty schlendern, fällt Ihnen auf, 
daß Sie verfolgt werden. Eine der fin¬ 
stersten Gestalten der Insel läuft einige 
Querstraßen weiter hinter Ihnen. Nie¬ 
mand auf der Insel kennt den richtigen 
Namen dieses Kerls, er wird von allen 
schlicht und ergreifend das Wiesel ge¬ 
nannt. Das Wiesel bleibt offen auf der 
Straße stehen und sieht unverholen zu Di¬ 
nen herüber. Langsam fangen Sie an sich 
zu fragen, in was für eine üble Geschich¬ 
te Sie diesesmal geraten sind. 

Tales of Adventure, so nennt sich die 
Reihe von Programmen zu denen auch 
Cutthroats gehört. Wesentliches Merk¬ 
mal dieser Serie ist die Thematik, die in 
diesen Spielen behandelt wird. Während 
der Spieler sich bei vielen anderen Ad- 
ventures durch ferne Fantasy weiten oder 
durch den tiefsten Weltraum kämpfen 
muß, geben sich die Tales of Adventu¬ 
re weit realistischer. Die Schauplätze 
dieser Adventures sind tropische Regen¬ 
wälder, verlorene Pyramiden oder aber, 
wie bei Cuttroats, einsame Inseln. 

Hier gibt es Abenteuer zu bestehen wie 
man sie, mit viel Glück, auch heutzuta¬ 
ge noch erleben kann. Wie Sie der ein¬ 
leitenden Story entnehmen konnten, geht 
es bei Cutthroats um das Heben versun¬ 
kener Schätze, die rund um Hardscrab¬ 
ble Island (fragen Sie mich bitte nicht ob 
es diese Insel wirklich gibt, ich weiß es 
nicht), in Tiefen bis zu 120 Metern lie¬ 
gen. Um dieses Spiel zu lösen, brauchen 
Sie allerdings nicht aUe vier Wracks zu 
untersuchen. Es reicht völlig wenn Sie 
eines der Wracks untersuchen, den 
Schatz heben und, vor aDen Dingen, die 
Aktion überleben. 

Natürlich ist klar, daß sich ein derartiges 
Unternehmen nicht alleine bewerkstelli¬ 
gen läßt. Im Laufe des Spieles begegnen 
Urnen eine ganze Reihe von Typen. Ei¬ 
ner zwielichtiger als der andere. Eines 
der größten Probleme bei Cutthroats be¬ 
steht darin die richtigen Freunde zu 
finden. 

Denn manch einer dieser Typen würde 
Ihnen ohne mit der Wimper zu zucken 
die Kehle durchschneiden, sobald der 
Schatz gehoben ist. Nur, wem können 
Sie vertrauen? Dem roten Johnny, oder 
aber dem wenig vertrauenerweckenden 
Wiesel? Aber vielleicht ist ja gerade Rat¬ 
ten Pete der Freund den Sie so dringend 
brauchen... 

(HS) 
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Telefonische 

Bestellung 


VERSAND 


07131/52065 


JOYCE HARD- UND SOFTWARE: 


RAM*Erw«iterung für Joyce PCW 8256: 
Speichererweiterung von 256 KB Mil ausführlicher Ein- 
Pauanleltung. Preis: 109.--> DM 

FD*2 (2. Lautwerk für Joyce PCW 8256): 

Kapazität 2x80 Spuren mit Insgesamt 1 MS unformatiert. 
Komplett mit ausführlicher Einbauenleitung In transport¬ 
sicherer Styropor-Verpackung Preis 549,— DM 

Joyce-Phono-Set: 

bestehend aus RS-232 Schnittstelle, Akustikkoppler, RS- 
232 Datenkabel und einigen nützlichen Tips Keine Soft¬ 
ware zusätzlich erforderlich Preis 339,— DM 

BildschirmfilterfürJoyce-Monitor Reduziert Rimmern und 
störende Spiegelungen. Preis: 59,-- DM 


Farbband für Joyce-Drucker 


Preis: 
2 Stk- 


19.90 OM 

29.90 DM 


Joyce-Drucker Verlängerungskabel: 

Inklusive Stromverlängerungskabel 59,— DM 

PapierfUhrung Joyce: Ersetzt die vorhandene „Klappe*. 
Durch den verstellbaren Selten-Anschlag ist ein gerader 
Papiereinzug und genaue seitliche Einstellung vom Druck- 
Anfang möglich Preis; 37,— OM 

Abdeckhauben für Joyce: 

In bewährter VORTEX-Qualität 

Satz (Drucker. Tastatur und Monitor); 69,90 DM 

Fieet Street Editor; 

Ein .MuS* für jeden Joyce-Besitzer Das kombinierte Text- 
und Graphiksystem mit enormer Verarbeitungsgeschwin¬ 
digkeit. Die Bilder sind stufenlos in der Größe veränderbar. 
Der Text wird mit verschiedenen Fonts geliefert und kann 
gespiegelt, gedreht und in unterschiedlichen Größen dar- 
geslellt werden Preis; 259,— DM 

GSX-Graphlk-Treiber: 69,— DM 

Mouse (Electric Studio); 

inclusive 2 Interfaces und Software 

Sofort betriebsbereit. Preis: 549,— DM 

DFÜ (Datenfernübertragung): 

yORTEX-VAK-300 Akustikkoppler 
Übertragungsgeschwindigkeit; 300 Baud 
Orglnate-ZAnswermodus 

Stromversorgung; 9 V Blockbatterie/externes Netzteil 
Preis: 198,—OM 

Nuil-Modam: 49,90 DM 

VORTEX-CPC-Phono-Set - bestehend aus: 
Akustikkoppler VORTEX-VAK-300. Schnittstelle VORTEX- 
RS-232, Netzteil zur Stromversorgung. Diskettensoftware 
undVerblndungskabel lhr\tortell:AllesauseinerHand,d h. 
keine Kompatlbilllätsprobleme. Nur auspacken und 
anschließen und ..datenfernübertragen" 

SONDERPREIS; 498,— DM 

Multi-Link-Kabel 

Durch DlP-Schalter programmierbares RS-232-Kabel. Löst 
95% aller möglichen Verbindungen. Kabellänge: 2 Meter 
Preis: 69,90 DM 

VERBINDUNGSKABEL: 


Druckerkabel: 

für CPC 464,664 (2 m Länge Flachband kabel) 
für CPC 6128 (2 m Länge Flachbandkabel) 

für CPC 6128 (abgeschirmtes Rundkabel) 
Akustik¬ 
kopplerkabel (zw. RS 232 u. Modem) 1,8 m 
AnschluBkabel: 2. Roppy an CPC 664 
AnschluBkabel; 2. Floppy an CPC 6128 
Monitorverlängerung für CPC 464 
Monitorverlängerung für CPC 664 und 6128 
Joystfckvertängerung für 1 Joystick (3 m Länge) 
RecorderanschluB (CPC an 8-pol. DIN Buchse) 
RecorderanschluB (CPC an Mlnkenbuchse) 
CPC-Stereokabel zum Anschluß an HIFi-Anlage 
Schneider-Joystickadapler 
zum Anschluß von 2 Joysticks 
Scart-Monitorkabel (TV-Anschlu3) 

NÜTZLICHES ZUBEHÖR: 


VORTEX-Monitorständer: Dreh- und schwenkbar In allen 
Richtungen. Für alle 12" Monitore. Solide Ausführung aus 
bruchfestem Kunststoff. Preis; 39,90 DM 

MIcro-T-Sehalter; Ein Schnittstellenumschalter mit dem 
Sie 2 Drucker anl Computer (oder umgekehrt) anschließen 
können. Einfache Drucktastenumschaltung, auch für alle 
anderen Peripheriegeräte. Optional mit RS 232/V 24 oder 
Certtronics-Schnittstelle Preis: 139,— DM 

TURBO/S 

Joystick speziell für Schneider-Computer. Ausgestattet mit 
einer Feuertaste Im Griff, integrierter 9-pollger Stecker zum 
Anschluß für Zweit-Joystick Fester Stand durch vier Saug- 
füBe. Preis: 33,90 DM 


44.— 

44,— 

DM 

DM 

49.-- 

DM 

49,50 

DM 

39,— 

DM 

39.— 

DM 

22,90 

DM 

28,90 

DM 

14,90 

DM 

17,90 

DM 

17.90 

DM 

15,90 

DM 

15,90 

DM 

29,90 

OM 


Bifdschirmfilter: 



44,— OM 

Für Grünmonilor GT 64/65: 

39,— DM 

Datenrecorder: Zum Laden und Speichern von Kassetten- 

Software auf dem CPC 664 und CPC 6128 Im Preis ist das 

Datenübertragungs- und das Netzkabel enthalten. Auch für 

Batteriebetrieb geeignet und als normaler Musikrecorder 

verwendbar. Preis: 

89,— DM 

Diskettenreinigungsset: 


für 51/4" Laufwerke: 

24,95 OM 

für 3'A" Laufwerke: 

15,90 DM 

Disketten: 


3" Disk CF-2 (Maxell) 5 Stk./lO Stk 

49,90/79,— DM 

3" Disk CF-2 DD für Joyce 6512 

79,— DM 

The Music-Mechlne: 


Die Hardware-Ergänzung für Ihren CPC 

-ordern Sie unse- 

ren Sonderprospekt .The Music Machlne* an. 

Preis; CPC 464:169,— DM, CPC 6128: 249.— DM 

CPC 

664; 219,— DM 

PC 1512 HARD- UND SOFTWARE: 

Handy-Scanner (Prospekt anfordern) 

898,— DM 

RAM-Erweiterungschips (512 kB auf 640 kB) 99,— DM 

Druckerkabei 


(abgeschirmtes Rundkabel 1,7 m Länge 

39.— DM 

Tastaturverlängerung 

19,90 DM 

Monitorverlängerung 

69,— DM 

VORTEX-Drive-Card 20 MB formatiert 

1296," DM 

VORTEX Abdeckhauben für; 


Tastatur 

19,90 DM 

Monitor und CPU 

49,90 DM 

Drucker DMP 3000 

24,40 DM 

BlldschirmflHer für s/w und color; 

59,— DM 

FD-3 (2. Laufwerk für Schneider PC) 

448,— DM 



Math. Co-Prozessor 6087-2. Takttreguenz 8 MHz mit 

genauer Einbauanleltung Preis: 

396,— DM 

Harddisk-20 MB-Einbaukit. S'A" Slimline-Festplatte m. 

(Controller incl Einbauwinkel. Kabelsatz und deutscher Ein- 

bauanleltung. Preis: 

1276,— DM 

RAM-Spelchersleckkarie SPC 128 (512 KB auf 640 KB). 

Nur einstecken Kein Schrauben oder 

Löten. Einbau in 

2 Minuten beendet Kein Garantieverlust durch Zerlegen. 

Preis: 

156,— DM 

Itirbo Pascal 3.02 unterstotzt auch 


(Co-Prozessor 8087 und BCD: 

285,— DM 

DesMop-Publishing: 


Reet Street Editor 

349,— DM 

Microsoft: Multiplan Junior 

299,— DM 

Microsoft; Word Junior 

399,— DM 

Wordstar-Junlor m Mailmerge 

399,— DM 

Small C & Small Tools 

148,— DM 

Framework 1 Junior 

399,— OM 

Rnanzbuchhaltung 

249,— DM 

Infocom: Hollywood-Hi Jinx 

69,90 DM 

Pitstop II 

64,90 DM 

Winter Games 

64,90 DM 

World Games 

64,90 OM 

Top Gun 

64,90 DM 

Silent Service 

79,90 DM 

(Cyruss II Chess 

69,90 OM 

Dragonworid 

79,90 DM 

Rendezvous with Rama 

79,90 DM 

Fahrenheit 451 

79,90 DM 

Lord of the Rings 

€9,90 DM 

Prohibition 

54,90 DM 

Sub Battle-SImulator 

79,90 DM 

Rock'N Wrestle 

69,90 DM 

Destroyer 

79.90 DM 

Confllct in Vietman 

79,90 DM 

Top Gun 

59,90 DM 

Decislon In the Desert 

79,90 DM 


PFLEGEMITTEL: 

ORIGINAL VORTEX-ABDECKHAUBEN: 


Schneider Roppy DDI-1 


16,60 DM 

VORTEX Roppy F1-S 0. Fl-D 


19,80 DM 

Schneider Konsole für 464 und 664 

19.80 DM 

Schneider Konsole für 6126 


19,80 DM 

VORTEX Roppy F1-X und M1-X 


19,80 DM 

Schneider MonHor grün 


24,80 DM 

Schneider Mcnitor cclor 


26.80 DM 

Schneider NLQ 401 


19,60 DM 

Schneider DMP 2000 


22,80 DM 

DRUCKER: 

Panasonic 1081: 


599,— OM 

NECP6: 


1298,— DM 

Okideta ML1B2: 


848,— DM 

Ein- und Mehrfarbendrucker 

TA-MPR (Info anfordern) 


998.— DM 

Farbbänder für viele Drucker auf Lager. Bitte anfragen. 

Traktorführung für NLQ 401; 


69,90 DM 

DruckerstSnder: Papierzufuhr von unten 

oder hinten Preis: 


49,90 OM 

DISKETTENBOXEN 

; 


3" Diskbox für 10 Disketten (Proto) 

14,80 DM 

3" Diskbox für 40 Disketten Multiform 

38,90 DM 

dto. 

abschließbar 53,90 OM 

5'/a" Diskbox für 50 Disketten 


36,90 DM 

5'A" Diskbox für 85 Disketten 

abschließbar 39,90 DM 

3Vi‘' Diskbox für 40 Disketten 


36,90 DM 

31/2" Diskbox für 80 Disketten 


44,90 DM 

NEUE SRELE: 

DEATH WISH III 

C/D 

29,90/44,90 DM 

SOLOMONS KEY 

C/D 

29,90/49,90 DM 

KILLED UNTIL DEAD 

C/D 

29,90/49,90 OM 

WORLD CLASS LEADERBOARC 

C/D 

29,90/49,90 OM 

WORLD GAMES 

C/D 

32,90/49,90 OM 

SPY VS SPY Teil II 

C/D 

33,90/49,90 OM 

LIGHT FORCE 

C/O 

29,90/39,90 OM 

FIRELORD 

C/O 

29,90/44,90 OM 

BOMB JACK II 

c/o 

27,90/44,90 OM 
29,90/56,90 DM 

JAILBREAK 

C/D 

ACE 

C/D 

34,90/54,90 OM 

SILENT SERVICE 

C/D 

32,90/54,90 OM 

HACKERN 

C/D 

32,90/49,90 DM 
29,90/39,90 OM 

LEADER BOARD 

C/D 

HEAD OVER HEELS 

C/D 

29,90/49,— DM 

SABOTEUR li 

C/O 

29.90/39,90 DM 

RANA RAMA 

c/o 

29,90/49,90 DM 

SARACEN 

c/o 

29,90/39,90 OM 
34,90/49,90 OM 

MAG MAX 

C/D 

LEVIATHAN 

C/D 

29,90/39,90 DM 

SUPER-SPIELESAMMLUNG-PAKET 


SCOOBY DOO ANTIRAiD JET SET WILLY II 

FIGHTING WARRIOR BOMB JACK - 


SPLIT PERSONALITIES 

C/D 

33,-/49,90 DM 

CAULDRON II ALIEN HIGHWAY 

DANDY • 

FROSTBYTE DOOMSDAY BLUES C/D 

33.—/49.90 DM 

ANWENDER-SOFTWARE 

; 


Bei Bestellung bitte Rechnertyp und Diskettenformat ange¬ 
ben: 

d’Base II. Wordstar. Multiplan je 198,— DM 

Turbo Pascal 3.0 219,— OM 


vortex-Versand * Falterstraße ■ 7101 Flein 


r 


O Senden Sie mir Ihren Katalog O CPC, O Joyce oderOPC1512 
(SchutzgebQhr DM 3,-, bei Bestellung ab DM 100,- frei) 

O Senden Sie mir umgehend folgende Artikel aus Ihrem Angebot; 


O per Nachnahme 
O per Euro-Scheck 


bei Aufträgen bis DM 200,- Versandkostenpauschale DM 5,90 
Absender; 


Gesamtsumme 


DM 

DM 

DM 

DM 

DM 

DM 


Telefon-Nr. 


Unterschrift 


SPC 10/87 


Alle Lieferungen erfolgen auf Grund unserer Allgemeinen Geschäftsbedingungen. 













































I Abenteuer 



GAMERS MESSAGE 


Oktober wird’s. Der Herbst naht mit 
riesen Schritten. Das Jahr wandert 
schnurstracks in Richtung Weih¬ 
nachten. 

Jetzt kommt sie also wieder, die Zeit 
der Adventskränze, der Bratäpfel, 
der Rauschgoldengel und der langen 
Nächte, die sich so hervorragend da¬ 
für eignen, ganze Nächte lang am 
Computer durchzuspielen. 

Wie jeden Monat habe ich auch dies¬ 
mal die interessantesten Tips aus all 
den Leserzuschriften ausgewählt und 
zusammengetragen. Jetzt wo wir schon 
einmal bei den Zuschriften sind, möch¬ 
te ich mich allseits für die rege Mitar¬ 
beit bedanken. Sie dürfen es mir wirk¬ 
lich glauben, aber manchen Monat bin 
ich versucht zehn Beat It Gewinner zu 
nominieren, aber leider geht das nicht, 
schade. Aber, liebe Spieler landauf, 
landab, vergesst nicht, die Gamers 


Message ist euere Seite und sie lebt von 
eurer Mitarbeit. Uns Redakteure wür¬ 
de es interessieren wie es Ihnen gefiele, 
wenn wir die Abenteuer und Gamers 
Message Rubriken erweitern würden. 

Sie sind aufgerufen uns Ihre Meinung 
dazu mitzuteilen, denn wie gesagt, le¬ 
ben und sterben diese Seiten mit ihrer 
Mitarbeit. So, genug der Aufrufe, stür¬ 
zen wir uns in die weite, wilde Welt der 
Spiele. 


KORONIS RIFT 


Dieses, stellenweise sehr kniffelige 
Spiel birgt, auch fast ein Jahr nach sei¬ 
nem erscheinen, immer noch viele Ge¬ 
heimnisse. Martin Kästner aus Hinter¬ 
weidental hat Tips und Tricks zu die¬ 
sem Spiel zusammengetragen. Also, 
Martin hat das Wort und einen Beat it. 


Mir selbst ist es gelungen bis in das 
fünfzehnte Rift vorzudringen, ln den 
höheren Levels zeigt sich, daß man 
ohne eine gezielte Spielweise keinen 
Blumentopf gewinnen kann. Ein wich¬ 
tiger Punkt des Vorgehens besteht dar¬ 
in, keinenfalls zu lange in einem Rift zu 
verweilen, da die Angriffe der Saucers 
immer häufiger werden. Sie sollten auf 
keinen Fall versäumen für jedes Rift 
eine Liste der gefundenen Gegenstände 
anzulegen. Eine solche Liste könnte 
etwa wie folgt aussehen. 

RIFT 1 


Hulk 

Eff. 

Power Valute Geräte 

Farbe 

1 

15% 

11% 

70 

Schild 

Gr. 

2 

12% 

12% 

50 

Generator 

Br, 

3 

10% 

10% 

100 

Radar 

Bl. 

4 

15% 

15% 

70 

Etiergiesp. 

Rot 

5 

10% 

10% 

100 

Radar 

Br. 

6 

15% 

10% 

50 

Schild 

Bl. 

7 

6% 

9% 

40 

Laser 

Br, 

8 

15% 

7% 

110 

ECM 

Purpur 


140 PC 10’87 






















Abenteuer—| 



Wenn Sie auf diese Art und Weise ein 
Rift erkundet haben, können Sie in spä¬ 
teren Spielen schnell zu Hulks Vordrin¬ 
gen, in denen sich wirklich wertvolle 
Objekte befinden. Sollte einmal in ei¬ 
nem Rift nichts von Wert oder Ver¬ 
wendbarkeit sein, sollten Sie sich auch 
nicht scheuen es zu überspringen. 

Je weiter Sie in die einzelnen Rifts Vor¬ 
dringen desto deutlicher wird, daß Sie 
dringend einen guten Shield brauchen, 
dieser, unter Umständen sogar wichti¬ 
ger sein kann als ein guter Laser. 

Nun noch einige Kleinigkeiten mit de¬ 
nen Sie im Laufe des Spiels konfron¬ 
tiert werden. Die Saucers tauchen nicht 
immer nur am Himmel auf, sie können 
sich auch in einem Hulk versteckt hal¬ 
ten. Wenn Sie heranfahren um Ihren 
Droiden zum Hulk zu schicken, greifen 
sie an. Auf Rift 6 befindet sich ein Hulk 
der wie ein Frosch aussieht. Diesen 
Frosch sollten Sie abschießen. Wenn 
Sie nämlich Ihren Droiden dorthin 
schicken, so wird er zerstört. 

Zu den Modulen die man in den Rifts 
finden kann, kann ich leider momentan 
noch nicht viel sagen, aber es ist mir 
gelungen ein in Rift 3 gefundenes Mo¬ 
dul zu identifizieren. Wird dieses Mo¬ 
dul aktiviert, so schaltet sich einer der 
Monitore am oberen Bildrand ein. Die¬ 
ses Modul stellt so etwas wie eine Karte 
dar. Sie sehen auf dem Monitor immer 
die Sie umgebende Landschaft, ein 
Punkt bedeutet einen Berg und Sie 
selbst befinden sich immer im Mittel¬ 
punkt des Monitors. 

Ebenfalls im dritten Rift werden Sie 
auch ein Modul finden auf dem zwei 
Pfeile, einer nach links und einer nach 
rechts, aufgemalt sind. Setzen Sie die¬ 
ses Modul in Ihren Panzer ein, so kön¬ 
nen Sie sich schneller nach links oder 
rechts drehen. 

So, zum Schluß noch einen »Fahrplan« 
für die ersten zehn Rifts. 


RIFT 

Eff. 

Power 

Gerät 

1 

Überspringen 


2 

Überspringen 


3 

10% 

40% 

Mapper 


10% 

15% 

Laser 


20% 

34% 

Generator 


17% 

20% 

Energisp. 


18% 

13% 

Schild 

4 

Überspringen 


5 

11% 

10% 

Energiesp. 

6 

23% 

20% 

Schild 

7 

Überspringen 


8 

41% 

11% 

Antrieb 


23% 

22% 

Schild 

9 

50% 

59% 

Generator 


44% 

32% 

Schild 

10 

Überspringen. 



So weit Koronis Rift und Martin Käst¬ 
ners Tips dazu. 


FLY SPY CHEAT MODE 


Christian Osterwind aus Mühlheim hat 
sich mit FLY SPY von Mastertronic 
beschäftigt und dort einen in das Pro¬ 
gramm eingebauten Cheat Mode ent¬ 
deckt. 

Manche Progranomierer bauen in ihre 
Spiele spezielle Tricks ein. Beispiels¬ 
weise kommt es immer wieder vor, daß 
in einem Programm gleich ein einge¬ 
bauter Cheat Mode ist, der durch 
drücken einer bestimmten Tastenkom¬ 
bination aktiviert wird. 

Diese Modes dienen im wesentlichen 
dazu den Programmierern das Testen 
des Programmes zu erleichtern. Auch 
das Spiel Fly Spy beinhaltet einen sol¬ 
chen Cheat Mode, der folgendermaßen 
aktiviert wird. 

1. Aktivieren Sie den Pause Mode 
(eine entsprechende Meldung 
wird eingeblendet). 

2. Nun geben Sie bitte folgenden 
Text blind und mit allen Leerzei¬ 
chen ein: THIS IS TO HARD 

3. Nun erscheint ein kleines State¬ 
ment des Programmierers über 
solche Methoden ein Spiel zu lö¬ 
sen. Nun ist der Cheat Mode akti¬ 
viert. 

4. Bitte nun die gewünschten Featu¬ 
res aus der folgenden Liste aussu¬ 
chen. 

1 = Der Helicopter fliegt durch 
sämtliche Hindernisse hindurch. 
Dieser Punkt ist allerdings nur für 
Erkundungsflüge ratsam. 

2 = Unendlich Fuel 

3 = Beim Aufnehmen kann man 
zwischen sechzehn verschiedenen 
Objekten wählen. 

4 = Unendlich Laser 

5 = Unendlich Leben 

6 = Unendlich Shields 


5. Die ausgesuchten Zahlen gleich¬ 
zeitig festhalten und »0« für Quit 
drücken. 

6. Ich übernehme keine Haftung für 
Joystickartisten die sich bei dieser 
A^on die Finger verknoten. 

Natürlich erhält auch Christian Oster¬ 
wind für diesen feinen Tip einen Beat 
it, ebenso wie Karsten Keese. Er zeich¬ 
net für die auf diesen Seiten abgedruck¬ 
te Rouge Trooper Landkarte. 


What Next 


Arkanoid ist nach wie vor eines der be¬ 
liebtesten Spiele die es für den CPC 
gibt. Es hat eigentlich nur einen einzi¬ 
gen Nachteil, so manches Level ist so 
schwer, daß ein Durchkommen meist 
nur mit viel Glück zu schaffen ist. 

Ein Cheat Mode oder Poke für dieses 
Spiel würde uns und sicherlich auch al¬ 
len anderen begeisterten Arkanoid- 
Spielem gut gefallen. Eines noch zum 
guten Schluß. Ich arbeite derzeit an ei¬ 
nem Special, das ausschließlich Spiele- 
pokes beinhalten soll. Natürlich ist je- 
derman dazu aufgerufen uns mit seinen 
Pokes zu beglücken. Allerdings bitte 
ich Euch folgendes zu beachten: Bitte 
schickt uns nur Pokes die Ihr auch 
selbst gefunden habt. 

Bitte keine, die Ihr aus irgendeiner an¬ 
deren Zeitschrift habt. Achtet bitte dar¬ 
auf, daß eure Pokes für die Original¬ 
versionen der Spiele sind. Pokes für 
gecrackte Versionen nützen nicht viel, 
da 1000 verschiedene Leute 1000 ver¬ 
schiedene Spiele cracken und jeder 
crackt auf eine andere Art und Weise. 
So, das wars für diesen Monat, also 
Tschüss und sollten euch inzwischen 
einmal ein paar böse Invasoren über 
den Weg laufen, grab your gun and 
give them Hell. 

Euer Heinrich 
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I —Kleinanzeigen 


Biete an Software 


Dr Draw 75,- DM, Tel.: 0 21 51/4 88 19 


PC 1512-0asic2-Programmierer: 

- Maskengenerator + Eingaberoutine 
mit Helptexten + 18 Funktionen f. 

Ihre Programme 

~ Tool mitVariablenlisling + 16 weitere 
Funktionen zus. DM 60,- + 

NN, 

Info 089/35 82 84 


MIKA-CAD DM 120,- oder Tausch gegen 
Multiplan-Joyce bzw. Supercalc 2 (orig,) 

0 72 31/76 65 98 


Achtung 24-Nadel-Drucker! 

Verkaufe LETTER-Programm zur Erstellung 
selbstdefinierbarer Zeichen (6128; Base 
+ MC 20 + 2 K) incL fertig: griech,. hebr, 
gothik-engl.: DM 40,-; 

0 71 21/6 87 07 


Fibu (M + T) für Joyce abzugeben 
NP 194,-. Jetzt 125,-DM inci, 
Handbuch. Tel.; 0 28 66/41 19 


Datenschutz für Ihren Joyce III 

Das Codier-Programm DATASAFE 
sichert Textverarb Basic- und 
Progr.-Dateien vor unbefugtem Einblick. 
DATASAFE arbeitet m, Ihren priv. Codes 
und Formeln! 

Info: 0,80 DM-Briefm. an J. Arens, 
Lothringerstr, 10, 2 Hamburg 70 


PC SOFTWARE nur 50,- DM Je Progr. 
Bücher-, Video-, Musik-, Datei-, o. 
Lagerverwaltung, Zensurdatei, 
Karteikasten, Lottohelfer, Goif, 
Intelligenztest, Vokabeltrainer, 
Biorhytbmus, 2 infodisk20,- DM. 
Holger Groß, Am Ginsterberg 13, 

6630 Saariouis 4 


IBM-K: Liga(K. Eishockey) + FB-BLG, 
Erg,v,1963-87 jede Tab möglich (Heim/ 
Ausw.JVK 45,-DM/NN. 49,-DM, 

M, Kölhe, Medersbach 6.8413 Regenstauf 


Wegen Syslemauflösung Original-Software zu 
verk. für 6128/Joyce: WORDSTAR 100,- (NP 
198,-), DR DRAW 100,- (NP 198,-), COM- 
PACK 298,- (NP 698,-), NEVADA COBOL 
110,- (NP 179,-), COMAC KASSE 80,- 
(NP 128,-), serielle SS 90,- (NP 138.-), 
für PC1512: FiBU-STAR 298,- (NP 398,-) 
Tel.: 089/6 51 90 15 ab 19 Uhr 


Super Calc für Joyce 
Tabeiienkalkuiationsprogramm f. Joyce 
mit engl. Handbuch Preis: 150,- VB. 
F.D Harvey, Kl. Beurhausstr, 12, 4600 
Dortmund 1, Tel,: (02 31) 14 21 28 


Textomat, Oalamal + Si Disk + Handb, 
neuw,je55,-DM, Tel,: 0 51 30/38 96 


HANDWERK I - lebt - 

neueste Updates anfordern 
KMS-SOFT-KRAUTWALD 
Julius-Leber-Str, 28 
2000 Hamburg 50 G 


Turbo Pascal Joyce 04 31/3 49 1 2 


*** JOYCE-Vokabeltralner 

bis 30000, inci. 2000 Vokabeln, 
engi. -i- Irz, 37,- DM, Info: Kenzelmann 
Peter, Sonnbühl 26, 7964 Kißlegg 


Public-Domain f. MS-DOS 
Liste gegen 2,- DM Rückporto 
von F. Steinkohi, Hopfau 1, 

8562 Hersbruck G 


Wegen Systemwechsei fürJOYCE zu 
verkaufen, alles neuwertig: MICA (cad), 
D-Base. Multiplan, STAR-BASE, DR DRAW, 
je DM 100,- div. Bücher als Zugabe bei 
Gesamtabnahme L. Husemann, Pf, 160166, 
48Bielef.16, Tel.: 05 21/76 11 49 


'••• SPALTEN 10 

2-10 Spalten-max, 80 Zeichen/2000 Felder 
•rechnen (+I-) -Suchen- Sort,- Drucken- 
einlachste Bedienung- C/D 33,- /38,- DM 
SCHALTBILD - CAD 1 **** 
Schaltbilder mit dem CPC aiie gängigen 
Bauteile in BauteileDibliothek mit Hardcopy 1. 
EPSON u. kompat. (NLQ/DMP) - Test s Heft 
5/87 S.58 C/D 43,-/48,- DM 
BANK 111 

als Bankkontenführung, Haushalts-, Kassen¬ 
buch, kl. Gewinnrechrung m. Suchen- Sort- 
Druck-schnellste Eingabe-C/D 33,-/38,- DM 
•*** VOKABELTRAINER 
schnelle, einf, Eingabe-max, 2000 Vok,- 
auch franz. Zeich.-C/D 23,- / 28,- OM 
Preise bei Vorkasse od. + NNGEB.- 
Software D, Thiesen, Rathausstr, 70, 5410 
Höhr-Grhsn. Tei.: 0 26 24/33 77 ab 18,00 Uhr 

G 


■ ts - Tapferes Schneiderlein ■ 

Full-Screen-Editor f. Disc-CPCs 
• klein & flink • schnellste Bedienung -h 
Bildaufbau • Einführungspreis 69,10 OM, 
Scheck od, NN.«Dipl.-lng. H, v Börstel# 
Nordstr. 3 • 3300 Braunschweig 
Bei Bestellung Rechner^rp angeben! G 


Star-Mail + Datei Star DM 50,- zus. 
Tel 06131/44377 


Wg. Systemw. Originalpr f. 6128 
dBase II DM150,- 

dBase II Fakturierung DM 60,- 

Einnahme/Überschußr. DM 70,- 

Fibu Star Plus DM 250,- 

RSE Vereinsverwaltung DM 50,- 

RSE Uni Datei DM 50,- 

RSE Adressverwaltung DM 30,- 

RSE Super Hardcopy DM 25,- 

Statistic Star DM 30.- 

Privatmanager DM 30,- 

Finanzmathematik DM 40,- 

Bio u. Astro DM 60,- 

Kompl. DM 600,- 

oder einzeln. 

Tel./evtl. Anrufb, 0 24 31/78 44 
Katzenpension »KATZENHÄUSCHEN« 


Neu! DB-GEN 

Die Datenbank für den Schneider-PC 

- Keine Programmierkenntnisse notw.i 

- Einfach zu gestalt. Bildschirm-Maske 
Die Datenbank wird automat. generiert 

- Bis zu 5 Schlüssel für direkt, Zugriff 

- Suchmöglichkeit nach allen Feldern 

- Auswahl für Serienbr, (z.B, bei Adr.) 

- Komfortable Menüführung 

DM 99,- gg. Scheck 0 , NN (+DM10,-) 
Melitta Schnurr, Am Löwengarlen 1, 

7831 Sexau, Tel.: 0 76 41/4 94 04 G 


Wordstar, dBase, Mulliplan, f. 464 
je 110,- DM. Tel,: 05 31/32 99 90 


SCHNEIDER PC*"' 
Mathe-Software Sek, I {Kl. 5-10) 

31 Programme (über 200 K) 
ideal für Lehrer und Schüler 
teilweise mit Grafik Menues 
Kostenloses Info anfordern! 

Preis nur 50,- DM / M, Schäfer, 
Postfach 7222/4800 Bielefeld 1 


’*Für CPC 464/664/6128’* 
48 Programme für Mathematik, 
Chemie und Physik (120 KB). 
Disk. 3“: 39,-; Cass,: 33,- 
Info gg. Freiumschlag 0,80 DM 
bei: Henning Schnilger, 
Langenweg 144,2900 Oldenburg 
oder Tel,: 04 41/3014 92 


Orig. Software + Handbücher 464 
Para 3.0; Wordstar 3,0; G-Basic 
Compiler; Nevada-Cobol je 85,- 
Profimat; CPC Firmw Handbuch; 
Taifun-Basic-Comp. je 50,- 

Tel:02 81/20 06 69 o. 0 28 28/76 54 
Alles zusammen für 400,- OM 


••AKTIENCHART** 

»CPC 664 und 6128« 
Analyse milDurchschn. Berech.; 
P&F; aktuelle G/V-Berechnung 
u.v.m,; 60 Werte maximal mögl. 

Preis: 99,- DM (Diskette). 
Info: C. Nalasek, Im Hespe 40, 
3008 Garbsen 4 


Original Star Writerl,3, verk. 

1 Woche alt 140,- DM orig Verp. 
Tel.: 0 26 41/1218 nach 18.00 Uhr 


StarWriterV3.1 (464) 100,- DM 
Becker Base PC 90,- DM 

Tel.: 0 96 21/2 57 36 


Joyce: Star-Base, Business-Star, 
Mailing-System, Fibu-Star, Statistik-Star, 
FD2, RAM-Erweiterung, NP-30%, 

Tel.: 0 61 21/8 68 59, Tas, Menumat 


PUBLIC DOMAIN CPC & Joyce • Info 
1,60 DM, Cal-Disc12,-DM(400Disk) 
PDI, Postfach 1118, 6464 Altenhaßlau G 


RETAX’87: Lst, u. Einkommensteuer 
(nur Lohneink.) Ber. Ausdr,, Tab.-F. 
Joyce, nur 49,- DM Telse Erdmann, 
Helgol. Str. 17, 2244 Wesselburen 
Tel.: 048 33/27 47 (nach 18.00 Uhr) 


Verkaufe für Schneider JOYCE: 

Turbo Pascal Compiler + Lader + Tutor 
Telefon: 069/70 93 23 G 


Neu ACHTUNG RATSEL-PANS! Neu 

Ihr PC kann Kreuzworträtsel m. diesem 
Programm lösen. Sie können 
bis ca, 200000 Worte eing.i 
System-Voraussetzung: MS-DOS 300KB, 

2 x 360 KB FD oder Festpl, Programm 
mit 20000 Worten und 30000 Suchbegr, 
auf 3 FD. DM 49,- Chiffre 100987 


■ CPC - VOKABELTRAINER ■ 

■ ca 1100 lat, Vok. (=3 Jahre Lat.) ■ 

■ sehr anwenderfreundiieh ■ 

■ 25,- DM (inci. Porto) 09 91/2 51 21 ■ 


STERNENKRIEGER! Auf 3" D 

(CPC/Joyce)! Mit 10,- DM bist Du dabei: 
Direkt an: HARY, Gärnerstr, 14, 

6602 Dudweiler Garantiert auf Deutsch! 


Achtung! Star Writer PC - 
Besitzer - Diskette m. ca. 

100 Bilder/Symbolen DM 20,-, 

J, Hilgarth, Pf. 2267, 7030 Böblingen 


LTS-Lern- u. Trainingssotlwarel 
Schule, Beruf, pers. Probleme: 

Dr Kolb, Psychol,- päd. Praxis, 

Bergstr. 34,69 Heidelberg, 

Tel.: 0 62 21/47 47 11 od 30 35 55 G 


Erst Programme testen, dann kaufen! 

Testdiskette (Anr. b. Kauf) DM 15,- 
LocoPost Adressen-ZTextprogramm 
Serienbriefe mit LocoScript 
982 Adr, Pull-down-Menüsteu. DM 84,- 
LITERATUR, MUSIK, VIDEO DM 39,- 
HESCHCOM, Weichselgartenstr, 13, 

8 München 71, Tel.: 089/78 93 77 G 


Verkaufe orig.-Games für CPC 

bis zu 1/4 unter NPÜ 

Tel,: 0 76 22/18 45 (Cass./Disk) 


Original MBasic für CPC + Joyce 
Neu; DM 120,-. 

J. Beermann, Tel: 0 50 41/29 04 


IBM-Schneider -i- Kompatible 
Textverarbeitung, Serienbrieferslellung 
und Adressverwaltung mit 
Anleitung um DM 40,- 
(Vorauskasse-Verrechnungsscheck) 
zu verkaufen, Roland Pillon, Nr. 37, 
39040 Gasleig, Südtirol-Italien 


D IE ANWENDUNG FÜR Lehrer: 
SCHÜLER-ZENSURENDATEI u. KLAS- 
SENARBEITEN-KORREKTUR; 3''-Disk, 
f, CPCs, DM 42,- Th. Lichtenstein, 
Hans-Pfitzner-Str. 15a, 

4270 Dorsten; mit frank. Rückumschlag 
Info anfordern. 


PC-Freeware ab 3,50 DM pro Disk, 

Liste anfordern bei: Zurmühlen, 

Sedanstr. 27,4700 Hamm 1 G 


□□□□□□□□□□□□□ 

Für Joyce: □ Steuermal □ 

□ Lohn- und Einkommensteuer: Druck □ 

□ direkt auf’s Formular, Analyse, □ 

□ Tabelle, Disk 70,- DM; Aktu. 20,- OM □ 

□ * BIORHYTHMUS *: Disk 35,- DM □ 
Info gg. frank. Umschlag; F, Farin. 
Elisabethstr. 65,4460 Nordhorn 

□□□□□□□□□□□□□□ G 


DISKOMAN-Software: Die größten 
Textprogramme der Welt in 
deutscher Sprache! Alle Inlos 
mit Demodiskette (3“) für nur 
10,- DM (in bar 0 V-Scheck); 

HARY. Gärtnerslr, 14, 6602 Dudweiler. 


IBM/Schneider PC -i- Kompatible 
Free Disk, ab DM 3,80 Info grat. 

M. Karbach - Remscheiderstr 18, 
5650 Solingen 1 - Tel.: 02 12/4 31 40 


JOYCE (+) Vokabeltrainer 

Lat, + Engl, + 1300 Lat. Vokabeln 
(kompl. Grundwortschatz [a. CPC]) 

+ Lat, Zeichendef, F T U H) 30, - DM. 
Info u. Best. (VK): Bernhard Graßhoff, 
Roesoll 36, 2305 Heikendorf, 

Tel.: 04 31/24 15 70 
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ProSoft-Preise liegen richtig! 

S 0261/4047-1 -1^ 862476PSOFT-Telefax0261/4047-2S2 

Wir suchen ständig günstige Einkaufsquellen für die angebotenen und neue innovative Produkte. 
Günstige Möglichkeit der Finanzierung durch Ratenkredit. Fordern Sie die Unterlagen an. 


Commodore'PC 


Conimodore*PC Plantron 


Co(Timoaw»PC-10U 17M,- ConvTwdof.PC-2011 a6»e,- 


Commodoi* PC* 10 lt*20 s: ZOtMCiniwhwu, 

24»8,- 

Comm«44mPC>10ll-a0«fC-iC>^SM]a<ll4>»%Mk 2S98,- 


AmiQa 500 10*0,- V; •' « gwarte A’/tGA- 

A-OciÄOTjfMowW aOM.- liaPMWter10ei»4«l»« 740,- 


C«mm«dM« AT PC 40 mrt 20 UB-F^iplans 3808,- 
Commoöor* AT PC 40 mit 40 MB-Festplatte 4208,- 
CommMlo««ATPC40/40 4008,- 


T^ndon - landen ’ Tandon 

PC 18S&,- XPC2/20 2596,- XPC2/30 2798,- 

PCA 4198,- PCA20 4696,- 


PCA-30 0078,- PCA-OO 5298,- PCA-70 7378,- 
PCA-eO 8908,- Ikndon 20 0098,- 


AheTandon ATinc:, senelie und parallele Schnittstelle 

Aufpr. Farbsy.tem 696,- Aufpr. EGA'SysIem 1596,- 

Auf preis 2-MB-Speieherkarte 796,- 


20 MB Rastplatt* „ST 220** 

IM imI Cwiraiw KAbeiMtt u. ttnbauanitNung 

643 .- 

30 MB Fmiplatt« (Seagate ST 236 
irtcL HLl-Controileru. Kabeisaiz turXT 

699 ,- 


.‘0 l.'3 Festplatte iS-’-iCu'.e ST jl5i, 05 rnsfer XT AT 548,- 
30 MB Festplatte (Seagate ST 4038], 40ms1urXT/AT 1078,- 
40 MB Festplatte (Seagate ST 251 ), 40 ms f ur AT 896,- 

80 MB Festplatte (Seagate ST4095), 26 ms 1796,- 

Festplattencontroiler tur XT if>cl. Bedienungsantertung 
(tormatieft 10-30 MB Festplatten) 198,- 

FestplattencomfOtierW01002 348,- 

AT-RLL Controller OMTI 8627 490.- 

I^ndon ftndon 'ftndon Tandon Tandon 
Es muß nicht immerSeagatesein 20MBvonTandor-dasQualltätspfofluktl 
TM965-2 360K-Ploppy 198,- 

TM975-8 1.2UB-Floppy 296,- 

TM 9252 Slave lOMB-Festplatte 346.- 

TM9252AI lOMB-Festplatte + Controller 498,- 

TM9262slave 20MB-Festplatte 496,- 

TM9262AI 20 MB-Festplatte + Controller 548,- 

TM975SAT 40 MB-Festplatte 1078,- 

TM 9755 AI 40 MB-Festplatte -f Controller 1378,- 

Disk Manager by Ontrack 

verwaltet Festplatten ab 30 MB auch unter DOS 148.- 

SpeedStore 198.- 

Microscience-Festplatlen 

HH 725 20MB5Vj'’incl-Conlroller + Kabelsatz 698,- 
HH 730 30MB5'/*"incl.RLL-Controllef + Kabelsat 2 768,- 
HH1050 40 MB, 28 ms 1498,- 

HH325 20 MB, 3'/?" 598,- 

HH 330 30MB,RLL.3V2" 648,- 

30 MB Hardcard 848.- 

NEC-Festplatten 

D5l2S(20M3-85ms) 798,- O3126(2OM0-325"-fl6nis) 998,- 

D5125H(2OMB-40msl 1098,- D5452(B5MB-23MS-luiliieight) 3298.- 
D5148 (40 MB - 40 ms) 1498,- 05652 ll70MB-23MS4ull tieigtil) 3698,- 

CoricepT-Card 898,- 

Prlam-Festplatten 

V-185 18ms ■; MB 1948.- 


I liit#nfvn* 20 MBTaD^SIrdftmer intern 

608.- 1 

1 .M)M0TaoeSirear’ier.APT4O-(AUuOY) 

999.- 1 

1 W9natokTip*-0trMm*r62MBFAD0OOO 

9t#,- 1 

1 ‘bka%niOUBO<siiCahnogeSubsvstem-Externai 

1008,- 1 

Grafik-Adacter Er.-V K-artc* Quad'.i'^ EGA- 

770.- 

1 NEUIEQA-Wcnder EnhancM nur 

»»».- 1 

VEGAde Luxe Autoswitch 

698,- 


ATI-„Graphic Solution ■ 298,- 

Hercules Graphic Card plus inci RAM-FONT 578,- 

Hercules kompatible Grafik-Karte 198,- 

Farbgrafik-Adapter 148,- Paradise EGA 396,- 

Patadise EGAAutoswitch 80-Zeichen 448,- 

Patadise EGAAutoswitch 132-Zeichen 498,- 

Gienoa Super Hl-RES 896,- 

NECJC14QtP3EMuit'S¥AC 14-EGAMonrtOf 1298,- 

I W4a.-T 

Co-Prozessoren 

808616-bit-Mikroor. 49,- 8088 B-b't-Prozessor 49,- 

8087 (5 MHz) 249,- 8087 ( 8 MHz) 349,- 

80287 ( 6 MHz) 399,- 80287 (8 MHz) 599,- 

80287 (10 MHZ) 649,- 

AllesZulietiörurdS4ftw9i«runiluin(lerPCzu$«i‘’gürsb3»iPrai8ei.ForderiiSiediePtelslial<tr! 

Ih^ns Net - TVans Net - Trans Net 

Die inleressaiteele HetzwerHesung au( der Higli-recir Sune Ttans-Nti ist eines der bediene)- 
IreiindlichslenLon-CostNeizwerhe KirPCs euldem Uarkti 

MöglichlielteiiiDeiiedigeFsstpiattenzLigntiamNezivsrj OiskanenzugnileiniNeizAerk.OOS-Tivspa- 

renz, FileRecord Locking, TfWNS-NET Druckerspcolei. evieiiert« Metziwk DOS-Betetile, Mulli- 
Ta8king,Saiji&-,'lehi8rMcr'i:of,NET-BIOSEmulati5'.f10VELLErriulai0f 
Stärterkll SNetzwkksisn.KBbalondSofware 1696,- 

Nelzwartkarls 696,- 


Plantron 


Plantron 


Plantron PT 16 LC jmächaltbar4,77,'6 MHz, 256 KBHauplBpeiciier, Mono- 
cttrom-Sralkkarte (Hakules kompatibel), paralleler Dmokeraiscl, 1 Dis<etlenW- 
■eriiStOliB.TasaturKleuBchfmitsepsralerrCursorDiKk. 

WSOOSJlGWraac 1245,« 

Pl8ntronPTLC/20MPTLC.Zi;s9lzl.20UBFsslpl. 1998,- 
PlantronPTLC/30<n|PrLC.zu8alzl.30UBFeslpl. 2098,- 
Plantron PT XT Turbo A77 oder fl MHz TaW 256 KB HSjCttpeicher.Mono- 
chrpm-Qtaflkkarte (Herkules kcwipafibei). Mul'lunidionskartsm't parai'elerScnnitt- 
reliB, serieller Schnittstelle, QanePoh. Echtteitunr, MS-D0S3iinci, Basic, RAM 
Disk D(UcKer8pQ0i(r,5eaiiRur^E)PieUrg;f>dZubmr,2Dakel- 
lemajtwerke 9360 KB. Tadatv ivaepnum CtmiFcck 1698|- 
PJantron PT XT 2/20 Turbo 

iN4PTXTTurCio.2usalzlicn20MB Festplatte 2398,- 

Plamron PT XT 2/30 wie PDCTTurtiO. 
zusatzlipriBOMßFeslplatle 2498,— 

Plantron PT ST 6 MHz oder 8 MHz Takl, 540 K3 Hauptspeiener [bis 1 MB on 
Bosraj, Monochrom-Gralkkaite (Herkules kpmpabdsl], peralleie Druckerecnnlti- 
stelle, Diskettenläufweik 1,2 MB, faeiatuf (deutseti) mit sep Curaorbiock, Echtzeit- 
uhr,MS-DOS32/ßW-ßasio, 

QedisnungsarieilijngundZutietibr 2498,— 

Plantron PT-8T/20wePT-ST, zusätdich 20 MB-Pattei.fld 
FlDf()i'-Haro-Di5K-Controiier 3198,- 

PlantronPT-ST/aO 3298,- 

Plantron PT-AT wie PT-ST, zu^l Müiti FO-Kaite rml paralleler und serieller 
Schnitiiteie. Game Port 

Floppy-Hand-Oisk-Coniioiier 3198,— 

P)antronPTAT/20w[8PTAT2usälzl rr.BOMBFestpi. 3898,- 
PiantronPTAT/SOwiePTATzusatzl m SOMEPeslp' 4398,— 
Plantron PT-AT/40 wie PT-AT zusätz! AOMBFestpl 3998,— 
Plantron PT-AT/80we PT-AT zusätzl 80MB-Plette 4996,- 
PlantronBabyATS/IOMHzinci 64-MB-Festp,atte 
undEGA-Karte 3448,- 

Planbon PT-sas 4998,- 

Planbon PT-3B6 g/40 5896,- 

PlantronPT-386E/80 6998,- 

Adllimd)4erFa.PMrMbe«tttl(enM,6ilwirdi«6iiitieiAPnieedwchSiM- 
hMiIh wM tMu der FitlpIdM und KiitH Arreb ensert geedwlti. T tchnkK 
ertficbeB>4iwe.,-Sifcid»erdfcdWi9lHiaiidHiiw’I H* li.b w P to d ii M i 


Software 

MIcrosoH Word 3 01 deutsch 
Cli3rt2i3i deutsch 
PfO)ect2/)l englisch ' 74£ 

Windows 102 deutsch 2SE 

MultiuseriNetzvverkprogramrre 
Word2 01 deutsch, 3ef-Net2iizenz 1848 
Basiplnteip^erengi VersiaiüAOken« 648 
FdilrariCcniplerer^, Versonß 30Xenx 
CcMTixilsV I Oer^l .VerS'Onl 00](eitii64E 


Software Sofbware 

WordOC-i-Mouse Bündle deutsch 1149,- 
Mullip!an30deutsch 528,- 

Multipian -t Mouse Bündle deutsch 778,- 
Wmdows-kMouseBundiedeutsch 548,- 

BäsicCorrpiierVS4,Xeni*en9l, 1298,- 
PescalCkimpdaengl. Va8»n3 39Xenh 1298,- 
OdbdO/iviete'i^ Versi[in210XecRl84e,- 
SPl Open Access II deutsch 1199,- 


MPC910E 4196,- 
MPC900 E 4998,- 
MPC1100H 10698,- 

Schneider 

1548,- 
558,- 
2098,- 

2249,- 
3149,- 
2699,- 
1198,- 
148,- 


Asthon Tate, Compuler Associates Digital Research. Heimseolh, Lotus. Micropro, 
Bongalzund Schmdt.Nactucket/KRS, STSC, General Optimisation 

Multitech Multiteeh Multiteeh 

MPC500S 1448,- MPC500D 1790,- MPC500 E 2146.- 

MPC700D 2498,- MPC700E 3248,- 

MPC710B 2448,- MPC710E 3098,- 

MPC910B 32A6,~ MPC910F 3798.- 

MPC9008 3998,- MPC900 F 4598.- 

MPC1100B 8898,- MPC1100E 9898,- 

Schneider Schneider 

Schneider612egrür 749,- JoycePCW-ß2ö6 

DMP-2000 528,- DMP-3000 

DMP-4000 848,- Joyce-*- PCW-e612 

Schneider PC - Schneider PC 

PCMM/SD 1349.- PC MM/HD 20 (Seagate 65 ms) 

PC MM/DD 1799,- PC CM/HD 20 

PCCM/DD 2249,- PCCM/HDOOlSeagateBSrns) 

PC MM/HD 20 2699,- Vortex PC 1512 2Ü MB-Otlve Card 

Speicherenveiterurg au(640 KB RAM 

Brother • Brother Brother 

M-1109 469,- M-1409 799,- M-1509 999,- 

M-1709 1199,- M-2024 L- 1999,- M-4018 2999,- 

Star - Star - Star nx-is 999 ,- 

NL-10 548,- zusätzlicbeslnterfacefürNL-IO 98,- 

ND-10 896,- ND-15 1198,- NR-10 1140,- 

NR-15 1398,- NB24-10 1398,- NB24-15 1798,- 

NB-15 2348,- SR-10 1244,- 

Atarl ' Atari - Atari 

Atari 1040 STP Tastatur, 1024 KB HAM, 192 KB RCM, mie- . _ - ^ 
gnefteFloppy720K8.Monochrori-MDnitorSM 124, Maus, Basic 1540)~ 
Atari52OSTMTaslatur,512KBRAM,192KBR0M HF-Modu- __ 
lalot,RoppySF3S4,MonitorSM124,Maus,B35ic 11 iOf“ 

Filiale München 

ThoroilonstraBe 56.8000 MOncheis 2, Tel. 0 83/Z 60 93 69 
direkt b« der techrsischen Hochschule. 

Brtte beachten Sie. daß nicht ständig sämtliche Ware in 
unserer Filiale München vorrätig ist Ruten Sieani 


COMPAQ COMPAG-ProduKTe könnei wirpreiswertlieferr! 
KAYPRO Kayoi'o-ProduKteKöHieiwirDreisweitliefem! 

OKI - OKI - OKI 

I Oldinat»20Farbdruclt>fmitliifrtace 496i~ I 

Dkginsligin Fresefi> diegesarntsOKi'PrcNldrtpalsllsindLaseflfKedaiireiiSie bäunsainTelsiM! 

C. ITOH - C. ITOH > C. ITOH 

Riteman P-HII incl. Centr.-Interface 698,- 

Riteman C+ Incl. Commodore-Interface 620,- 

Olivettl - Olivetti - Olivetti 

Auch Olivetti stellt neue innovative Produkte vor. Natürlich ver¬ 
sucht ProSolt in erster Reihe dabei zu sein. 

M24 Monefleppyversioes, 640 KB Hauptspelctier ssrielle und parallele 
Sciinillsleile. Bus Coriveitsr, FaiHMcnodirpiiigralikadapler. Kalender und Ltr mlMerie. 
1 Disketlenleuhveil<36CIKB.Mo4iLOr.Tas!alur.MS-DOS.GW-Bas'c 2698|~ 
M24 1/2O| 640KBHaupt5peicher,serielleundparalieleSchniitslelle Farb-Monodhrom- 
grafikadapier KjerderundUhrmitBaitens.l DiSkeitemau[i.verk36ÖKB,l Festplaa^MB, 
I Bus Cenverter. (Monitor. Tastatur. MS-DOS. GW-Basic 3198|“ 

M24 1/3064DKBHaipispeicher.serielleundpaialleleSchntelle Farb-Menomrom- 
grafikadapier, Kalender und Uhr mt Batteie. 1 Disketlenlaufwerti 360 KB, i Fffitjjajie 50 MB. 
' Bus Converter. Monilor.Taslalur.MS-OOS.GW-Basic 3298|~ 

M28 Einetiegakonfiguratioes 1 16 Bit B02B6 6 MHz 512 KB Haupi- 
speicher. serielle und paraleie Schmtisleiie 1 Oisketieriaulweik i .2 MS I Festuiatie 20 MB. 
Monitor Tastatur, MS-DOS GW-Basic S798|— 

M20 Blnatiagskonflguratlon 2 (6 Bu 60268 6 MHz 612 KB Haupt¬ 
speicher. serielle und parallele Schrillste s ‘ Disketieclaulwerk 1,2 MB.' Fe5ipa;^40 MB, 
Monitor. Tastatur, MS-DOS. GW-teiC 6298,- 

M2S Standardkonfiguration AI 16 Bll 60286 BMhz 512 KB Haupt¬ 
speicher sereileund paraleie Schnittsielle i Oisketieniauiwerk 12 MB.' Fs.ueeMMB. 
I TapeSiteamerMMB. Monitor. Taslalur.MB-DOS.GW-Basic o8A8,— 

M2e Standard-Konfiguration A2 16611802e66MHz 512 Ke Haupt¬ 
speicher. seoele und parallele Schnittstelle. 10skeliedautwerk 1.2 MB.' F«tc|a% 4DMB, 
ITapeSlreamerSCMB.MonilDr.Taslaluf.MS-DOS GW-8asic 73198,— 

Sharp Sharp Sharp 

Wir Nalam w aft w h ia p f ti n wii au» dem nwanSharp- 
KonzaptPC-14(l3tmftW»ni3WochtnU>1«rzaitl 


209 ,- 


Pocket-Computer 




PC-124SS 

94,- PC-1280 

260.- 

PC-1460 

275,- 

PC-1248 

123.- PC-1360 

344,- 

P(M475 

275,- 

PC-1260 

197,- PC-1421 

240,- 

PC-I500A 

318.- 

PC-1262 

275,- PC-1425 

275,- 

PC-1600 

638,- 

PC-1270 

115,- PC-1450 

219,- 

PC-2500 

549,- 

EPSON 

EPSON 

- 

EPSON 


Der neue Renner von EPSON: LX-800 

548,- 

LX-000 VC/P 

648.- 

FX-800 937,- FX-IOOO 

1208.- 

LO-80D 1479,- LQ-1000 1929,- 10-2500 2576,- 

X-000 1574.- EX-800 1319,- EX-1000 1649,- 

LX-86 689,- SQ-2500 3108,- 

Görlitz-lnterface EPSON/C64 od CI 28 

196.- 

NEC - NEC - NEC - NEC 

- NEC 


R0 »»9,- 

PSoolor 1398,- 

PSaeriall 1498,- 


P5 1990,- 

P7 1348,- 

PTcoior 1648,- 

PTaarlall 1898,- 
P e aartell eelor 1698,- P 7 aariall oolor 2198,- 

Pirt-Faed-TisctOfli/PS 145.- BidedkUondarTractortutPE 34B.- 

PiivFeed-TnctofttiPT 270.- Bidifektionda'TtaebarfCrPF 385,- 

Cul-ShB«-Feed0ffLifP7 585,- 


(yoccra F -1010 6»9e,- F -2010 lo.sss,- 

Citizen - Citizen - Citizen 

l-SP -10 548,- MSP-IOe 338,- MSP-15e 848,- 
MSP-20 798,- IVlSP-25 1048,- HQP-45 2098,- 
Eirizebratlä-rzug1urLSP-lO/120 298,- 


Nun hat sich Ctliun dam Prsiaflivaau dM NL-10 
UP-120 0 Comtnxm- odar FMi«-S(mmsaM 


Juki - Juki - Juki - Juki - Juki 

Juki 6510 748,- WiriiefarridiegesamteJuki-ProduKipBlette! 

Panasonic - Panasonic 

KX-P1081 475,- KX-P10e2 675,- KX-P1083 945,- 

KX-P 15921189,- KX-P 15951589.- 

Seikosha - Seikosha - Seikosha 

3P-10OA 449,- SP-120CAS 528,- SP-1flOVC 449,- 

MP-1300AI 1096,- SP-1200 AI 520,- MP-5300AI 137B,- 


SL-SOAI 

nur 

798,- SL-80VC 

798,- 

Disketten NO'Name 

lOStQck 

SOStiick lOOStlick 

3' Maxell 


70,-DM 

330.-DM 6SO.-OM 

3/!*1D 


35.-DM 

149-DM 249.-DM 

3'/f2D 


39.-DM 

159,-DM 299,-DM 

5W-2D 


19,-DM 

59,-DM 89,-DM 

1 D 


ICOBtOefc 

79,-OM 

SV«” 1 D 


1000 Stock 

696,- OM 

SV«” 2 D 


1000 Stock 

740,- DM 


SVe" No-Name HD, 1,6 MB 


48,- DM 


ProSoft GmbH 


Bogenstraße 51 -53, Postfach 2 07, D-5400 Koblenz-Goldgrube 
Telefon (0261) 4047-1,Telex 862476, Telefax (0261) 4047-252 


Alle Preise zuzügl.iC,-OM Versandkosten proPaket, Lieferung perNachnahmeoderVbrkassescheck-VersandKosteiAusiandOMAO,-pro Paket Lassen Sie aich keinen Bären aufbinden! ProSoft liefert Original-Produkte derführendenHerstellef. 
Überzeugen Sie sich selbst durch Abholung der Ware in unseren Verkaufs- undVbrfuhrräumen In Koblenz. Wir gewähren Ihnen bei Barzahlung (kein 8check)2%Skonto auf alle Preise, was vielleicht schon zur Deckung Ihrer Reisekosten 
ausrelcht. EinigeunsererVorileferanten liefern Produkte ohnedie Seriennummer desHerstellers. Indlesem Fall übernehmen wir anstellederHerslellergarantledieunbeschränktegesetzlicheQewIhrlelstung. 10/87 



























































[—Kleinanzeigen 


Gralisinfo erhält Jeder CPC-User 
bei Friedrich Neuper, Postfach 72. 

8473 Pfreimd G 


STEUER’87 - Ihr Lohn- und 
Einkommensteuerprogramml Genaue und 
detaillierte Berechnungen + Druck! 
lnfo:Tel.:0202y78 53 16Q G 


Super Software für alle CPC's 
gibts jetzt bei Michael Deni, 
Oberthal 4,6944 Groenenbach 
Fordert Listen an ii! 


• • Biorhyihmus •• 464/664/6128 
ermittelt werden die krit. Tage, 

Hochs, Tiefs mit diesem Progr. am 
Bildschirm od. Drucker Disc DM 40,-, 
Cass DM30,- Infos bei W. Stiegler, 
Schulstr, 4, 7056 Weinstadt 
Tel,; 0 71 51/619 41 


FÜR JOYCE; Schreiblehrg,- 89,- DM 

Lernen Sie Maschineschreiben 

Test-Multipie-choice-Verfahr 

universell einsetzbar 59,- DM 

KAPITAL-Berechnung für Sparer 

Rate / Laufzeit / Kapital 39,- DM 

H. Panier, Software, Dorfstr, 13, 

2381 Struxdorf, Tel.; 0 46 23/10 44 G 


Bäckereiprogramm für CPC 6128 
Schreibt Rechnungen + Lieferscheine für 
16 Kunden + Filialen. 

Verwaltel Bestand und Retouren, 
erstellt Backzettel + Rezepte. 

Info von B. Abels, Scharhörnstr. 10, 

2956 Moormerland 


• • • • Umsonst !!!•••• 

können wir nicht liefern, aber wir 
bieten ein Handwerker-Programm 
(Kalkulation, Rechnung, Angebot, 

Aulmaß u.v.m.) zum sagenhaften 
Preis von 498,- DM für Joyce 8512 
598,- DM für PC 1512 Demodisk. 

50,- DM. Infos kostenlos erhältlich bei 
Husoft, Halde 12,7463 Rosenfeld G 


Freiprogramms f. Schneider PC's 

6,-/Disk. Katalog (5 Disk) 10,- 
Info 1.- i. 6r. Nun über 1100 Disketten. 
Neu: Sammlung PC Blue, deutsche SW. 
Lindmeier Horst, Fichtenstr. 19, 

6312 Dingolfing Q 


’* Dias ordnen mit Computer ** 

CPC 464/664/6128, JOYCE und PC 
bis zu 100000 Dias; Suchzeit 1 Sekunde. 
Info gegen Rückporto bei: 

Dipl.-Ing. W. Grotkasten, 

Birnenweg 6,7060 Schorndorf, 

Tel.; 0 71 81/4 28 46 G 


MS-QuickBasic Compiler 2.01 (Dtsch) 
für IBM u. Kompatible für 310,- OM 
Tel.; 0 27 33/20 05 


WordStar-Zusatzprogramme 
für Schneider, Joyce u. alle CPC 
Wiss- FuBnotenverwaltung; 
Inhaltsverzeichnis; Literatur- 
Verwaltung. Info; Boving, 
Postfach 100 361; 5000 Köln 1 


■ JOYCE: Public-Domain-Software ■ 

■ Desktop Publishing, GEM ■ 

■ Liste: 1,60 DM, Fa. Frenzel ■ 
Am kl. Rahm 101,4030 Ratingen G 


GOOD BYE CPC; Die letzten Artikel aus 
meiner Systemaufgabe Wordstar 
6128 (orig.) 90, - OM, Druckerkabel 
6128 nur 25,- DM, 3 Diskboxen 
20,- DM - Bücher: CP/M+ 15,- DM. 
Logo 10,- DM, Amazing Amslrad 
10,- DM - H. Rösner, Dachaverslr. 665, 
8 München 50 


WORDSTAR 1512 für PC, komplett 
nur 100,- DM. Tel.; 042 93/5 95 


HANDWERK I 

Angebot-Rechnung-Kalkulation 
Aufmaß-Leistungsbeschreibung 
Nachkalkulation-Zeitvorgabe 
DM 998,- 

KMS-SOF-KRAUTWALO 
Julius-Leber-Slr 28 
2000 Hamburg 50 G 


Lohn- und Einkommensteuer 1987 
Druckerausgabe + Datensicherung 
Ausführliche Anleitung. Info 1,50 
3"-Diskf.CPC DM79,- +VP 
Versand gegen Vorkasse oder NN 
88er-Aktualisierung DM 20,- 
S. Teurich, Mesternstraße 6, 

4952 Porta Westfalica G 


! Dts. Grafik-Soundadventure! 

Auf Disk 20.- DM + NN; Info 2,- DM 
bei; J. Köplinger, am Steigeneck 2, 
6952 Obrigheim. ES LOHNT SICH! 


• • • JOYCE • • • 

! Nie mehr auf den Drucker warten ! 
I Keine Zwangs-Kaffeepausen mehr i 
Nicht sNoch'n Programm« für die Schubla¬ 
de, sondern eins zum täglichen Geldspa¬ 
ren. DerTurbo-Spooler mit dem 
Rlesen-PuKer läßt Sie Weiterarbeiten, 
während der Drucker noch läuft, da zeigt 
die voll ausgereizte Hardware, was sie 
kann. Geeignet für BASIC und jedes an¬ 
dere CP/M-Programm, jeden Text, 
jede Grafik und jeden Drucker ohne 
Anpassungsarbeiten. Schottenpreis ab 
89,- DM. Kostenlose Info beim Autor 
Dipl.-Ing. R. Keller, Markt 28,5 Köln 91, G 


Orig. Multiplan + dBase 2 für 6128 mit 
Handbuch, Tel,: 0 83 86/74 11 abends 


■ Astrologie mit Computer 

■ international geschätzte Astro- 

■ logenprogramme, professionelle 
■Deutungsprogramme, Lernprogramme 

■ für Anfänger. Handschriftenanalyse, 

■ Bio-Rhythmus, Astro-I-Ging, 

■ Info gegen DM 2- in Marken. 
■Aslron, K.W. Bonerl, Peter- 

■ Marqu.-Str. 4a, 2000 Hamburg 60 


AKTIENANALYSE/DEPOTVERWALTUNG 
Balken-, Liniengrafik, 61 Durchschnitte 
u.v.m. für CPC 464/664/6128 u, PC 1512. 
Disk, nur 84,50 DM. 

Gratislnfo: Dieter Borchers, 

Schönstedt Slr.6,1000 Berlin 44, 

Tel.: 030/6870850 G 


Schachprogramme für Joyce - 

Ausf. deutsche Beschreibungen 
u. Vergleich von Cyrus II, 3-D 
Clock Chess u. Colossus 4.0 
Info gg. frankierten Rückumschlag bei 

Cytfka, Ebenböckstr, 25, 

8000 München 60. 


VITAL-TRAININGI Per Computer, 

klaf(CPC/Joyce)! Für SIE und 
IHNI Das komplette Programm 
(3"D) nur 30,- DM (in bar o. 
V-Scheck): HARY, Gärtnerstr, 14, 
6602 Dudweiler 


* Wirtechaftllche Programme 

* für die Arztpraxis auf * 

* dem Schneider CPC, Joyce, PC 

* Fa. EFFEKTA. Am Wiggert 9c 

’ 45 Osnabrück, 05 41/4424 16 

G 


TURBO PASCAL 3.0 TOOLS f. 6128 
Info: Jürgen Werner, 

Grabenäcker 7, 7454 Bodelshausen 


Achtung! Maler + Künstler 
Verkaufe Profi Painter 
Preis nach Vereinbarung 
Tel,; 0 94 36/14 85 oder 410 


Neu! Datenbank dBase II leicht 
handhaben mit varDal II - ein 
Menue mit 20 Befehlsdateien 
für alle Anwendungen: 

Adress, Verein, Lager, Serienbrief für 
Schneider PC, Joyce, CPC und 
Vortex varDatllmitdt. 
Handbuch/Schuber nur 199,- DM 
Scheck oder NN (+ 10,- DM) von 
SOFTDESIGN Horstmar Konradt, 

Bleichstr. 25,4040 Neuss. 

Tel.: 0 21 01/27 61 51,17 - 20 Uhr G 


Biete an Hardware 


Vortex SP 512/256 BOS 2.1 220,-DM 

PC 1512 auf 640 KB 60.-DM 

Star Writer 3.0 120,-DM 

Tel.: 0 52 31/4 60 70 


CPC 464 Color + Data Becker Bücher 
+ 5 Data Box + CPC int, 85/86/87 + 
viele Spiele Hanse/Elite usw Verk, 950,- 
TeL:0 52 25/1214 ab 18 Uhr 


Verkaufe CPC 464, Grünmonitor mit 
Handbüchern u, Drucker 
0 73 31/6 68 54 ab 18 Uhr 


Achtung! Super-Hardware-Preise 

Joyce RAM-Erweiterung 256 KB nur DM 
99.- 1MB Laufwerk für Joyce DM 390.- 
360 KB Floppylaufw. für IBM u komp, DM 
199,-, Festplatte 25 MB DM 599,-, Fest¬ 
platte 30 MB DM 699,-1 Verrectinungs- 
xheck an Th. Müller, Hindenburg-Allee 1, 


8240 Berchtesgaden G 


Schneider CPC 464 + FD1 500,- 

dataphone 521d + Softw. t- Kab, 250,- 
Reisware Mouse 170,- 

Software-h Data Becker Bü. 200,- 

Kompletl 950,- 

Ralf Müller, zum Heller 4, 

6236 Hofheim 5 


20 Mb Festplatte incl. Contr. für Schneider 
PC zu verk, Tel,: (09 21) 4 45 20 ab 18 Uhr 


PC 1512 8/10 Mhz Einbaukit 
absturzfrei umschaltbar - 149,- 
inkl,V30 Chip 0 73 31/6 68 66 


Joyce-i- m. Garantie -i- Software VB1800, 
Tel.: 02 34/7 00 38 39, 8 - 16 Uhr 


Schneider CPC 464, Grün-Monitor, 
DDI 1-Laufwerk, Druckerkabel, 
Textomat, Profi-Painter, etc.. 

Viele Spiele auf Disk + Cass.! 
Mark Schubert. 4100 Duisburg 1, 
Tel.: 02 03/77 43 89 od. 77 45 21 
Preis: 700,- 


Joyce Mousepac (Gerdes) -i- CPS 8256 
+ Turbo, Mica. Draw zus, für 300,- VHS 
(0 52 05)2 09 65 


CPC 464 -H Farbmonitor + Software nur 
700,-Tel,: 083 31/6 52 82 


■ DISKETTEN mGar ■ 

■ 51/4^48tpi, OM 8,75 2D ■ 

■ 31/2“, 135 tpi, DM 2.50 2DD ■ 

■ 3" Markendisk. DM 6,50 2CF ■ 

■ Allgem. Austro-Agent, Ringstr. 10 ■ 

■ D-8057 Eching, Tel: 0 81 33/61 16 ■ G 


CPC 664 2, Laufw. 3“ Data + Textomat 
10 Bücher, 20 Disketten + Box, Fibu, 
Monitorfuß, Druckerkabel 050,- 
0 61 55/618 95 ab 18 Uhr 


CPC 6128 + DMP 2000 -i- Datarecofdei 
+ div, Zubehör u Software 1900,-, 

Tel.: 0 61 31/4 31 53 


* * • SCHNEIDER PC 1512 * * * 

* Drive-Card auf 22MB formatiert, 
bootfähig, einsteckfertig mit 
HD-Utilities: Diskmanager und 

Filehelp. 988,- DM 

HD-Ufilities alleine. 46,- DM 

* 2, Laufwerk mit Metallabschirmung und 

Befestigungen. 298,- DM 

* 8087-8 Mathe-Co-Proz. einschl, Test 

+ Treiberprogramme. 449,- DM 

* Schneider Druckerkabel, schwere 

Ausführung, 2 Meter. 32-DM 

* Resetknopf, das schädliche Aus- und 

Einschallen entfällt Kompl. mit 
Einbauanleitung... 39,-DM 

*C0M2-Kar1e . 98,-DM 

•RAMerweiterungena 640 KB. .49,-DM 
Lieferung p. NN. PC TECHNIK 
Rheinstr. 16, 5202 Hennef 1 
Tel.: 0 22 44/38 11 G 


464 Grün, SP512, MP1,FD-1, Devpac, 
Turbopascal, Bücher u.a. auch einzeln 
Tel.: 0 22 35/7 89 88 


CPC464 CPC664 CPC 6128 User! 
Uchtgrifiel mit Programmen 
und dt. Anleitung nur OM 49, - 
Versand gegen Scheck/Nachnahme. 

Info gratis! Fa. Schißlbauer 

Postfach 1171S, 8456 Sulzbach 

Tel; 0 96 61/65 92 bis 21 Uhr G 


NLQ 401 Traktor für DM 400,- neu 
Degen, 8503 Altdorf, Tel.; 0 91 87/76 71 


JOYCE PLUS -I- Multiplan 
Disketten und Literatur DM 1999,- 
Tel,: 0 71 21/5 35 35 


Joyce 512-t-Fibu-i-dbll-i-mp-i-Business-i- 
Starbase -i- Div, 1600,-, 02 01/71 85 85 


144 PC 10’87 

































































DMV präsentiert: 

Joyce 

Sonderheft 2I&7: 

Nachdem das erste Sonderheft im April des Jahres 
ein wirklicher Renner geworden ist, sind wir stolz, Ih¬ 
nen das zweite vorstellen zu dürfen. Wieder enthält 
das Sonderheft eine sorgfältig erstellte Mischung von 
Programmen, Berichten und Tips zu jedem Anwen¬ 
dungsgebiet der Schneider-Rechner PCW 8256/8512, 


Aus dem Inhalt: 

Eine Marktübersicht zeigt Software, Hardware und Zu¬ 
behör für Joyce auf einen Blick. 

Pascom ist ein in Mallard-Basic geschriebener Com¬ 
piler zum Kennenlernen der Programmiersprache 
Pascal. 

Eine relative Adress- und Archivverwaltung stellt ein 
nützliches Werkzeug zur Verwaltung Ihrer Dateien 
dar... 

Zur dreidimensionalen Darstellung von mathemati¬ 
schen Funktionen dient der 3D-Funktionsplotter. 

Übercichtliche Darstellung von Basic-Listings mit Her¬ 
vorhebung von GOTO und GOSUB ermöglicht der LI- 
STER. 

Garantiert ohne GSX arbeitet die Turbo-Pascal- 
Grafikerweiterung, ein Super-Werkzeug für alle Pascal- 
Fans! 

Funktionstastenbelegung ist kein Problem mehr. Das 
kleine Basic-Programm fordert Sie zur Eingabe der 
Bedeutung der Tasten fl - f8 auf und speichert das 
Ergebnis fertig für die Startdiskette ab... 

Tips zu LocoScript unterstützen den Textprofi; wie 
wär’s mit vierspaltigem Druck? 

dBase2: was Sie schon immer über Installation und 
Arbeit mit diesem System wissen wollten; viele Tips 
aus dem »Nähkästchen«... 

Auch diesmal stellt das Sonderheft einige nützliche 
Prozeduren zu LOGO zur Verfügung. 

.. .und vieles andere mehr! 





Hirbo Pi 






eine 


Sonderheft 

Joyce 

2/87 


Programme 

AdreB- und 
Archivverwaftung 


Hardware: 

Zweldaufwerk 


Tjpij: 

li-Jiiüii, LU00, 
LüciiOöfJpi, sj/iSJU 


Joyce Databox Sonderheft 2/87: 

Die Databox platzt aus allen NählenI Uber 500 kB an Daten stehen auf vier 
D/s/<effense/fen zur Verfügung,' alle Programme und Dateien aus dem 
Sonderheft finden Sie hier lauffähig vor 


Diskette 1: 

- 3D-Plotter 

- Adressverwaltung 

- Archiwerwaltung 

- Balkenmenue 

- Funktionszeichner (LOGO) 

- Kalender 

- Labelprinter 

- Lister für Basicprogramme 


- Klassenverwaltung 

- Pascal-Compiler 

- dBase-CMDs 

- dBase-Handbuch 

- Kybernetik-Lernspiel 

- Ouickregister 

- Spallendruck (LocoScript) 

- Entscheidungsgenerator 
u.a.m., insgesamt ca 340 kB 


Diskette 2: 

Seite A: Alle Dateien für die Turbo-Pascal-Grafik- 
Töolbox: Ouellcode und Demo-Dateien im 
Source-und Kommandoformat - 170 kB Daten! 


Das Joyce-Sonderheft 2/87 ist beim Verlag, beim gu¬ 
ten Buchhandel und im Bahnhofsbuchhandel 
ab 15. Oktober 1987 zum Preis von 20,- DM erhältlich. 

Alle im Heft veröffentlichten Programme sind auf 3- 
Diskette erhältlich (insgesamt über 500 kB!). 



Seite B: 

- Funktionstaslenprogramm 

- Suburbia: Brettspiel ähnlich MONOPOLY (R) 
insgesamt ca. 210 kB 


Diskette 1: 30,- 
Diskette 2: 24,- 

Kombipack Diskette 1 und 2: 48,- 

___ I 

Bestellkarte ausfüllen und absenden an: 

/IV Daten- und Medien-Verlagsgesellschaft mbH 
Postfach 250 ■ Fuldaer Str. 6 
3440 Eschwege ■ Tel. (0 56 51) 87 02 










I Kleinanzeigen 


CPC 464, Farbe, Vortex Sp, erw. 
DM 350; Vortex Sp. erw. DM 100; 
Sprachsynth, DM 80; Vortex Para 
DM 40; CPC Intern, 03/85 - 10/85 
DM 30; Literatur Preis a. A. 

Frank Fink. 0 22 61/6 54 34 


Kopiere 3“ Daten auf MS-DOS 5 1/4" 

360 KB. Joyce/CPC 5 1/4 Disk lieferbar. 
Into 0,80 DM Porto, 

A. Rieger, EDV-Service, 

Gürzenicher Str. 1, 5160 Düren G 


TYPENRAD-ORUCKER DIN A3, neu! 
40Z., Tr. + Einzelbl., Centn- IF 
DM 800,- N. Berger 0 22 71/6 38 37 


CPC 464 Verkaufe Vortex-Doppel Lauf 
werk F1-D NP: 1598,-für 650,- DM. 
Org. Software günstig zu verkaufen. 
Liste anfordern! (Rückporto) 

Tel.; 0 71 93/88 31 zw. 19 - 21 Uhr 


PC »1512«, Farbmonitor, Software, für 
DM 1650,- Tel.: 0 95 61/3 34 89 


CPC 464, Grünmonitor, Drucker DMP 
2000, Software Tasword, Copyshop, 
Joydraw + Div. Databox DM 700,-, 
Tel.: 0 61 75/13 29 Metz 


Joyce+, CPC 464 Farbmonitor, dBase, 
RFI-DAT, Textverarbeitung, Privat '86 
Databox alle Ausgaben, alle Hefte 
Sonderheft Joyce Nr.l Preis VB 
Tel.: 0 50 63/18 14 


Joyce-8256 kompl. /10 Disketten 
Software.1400,- DM, 04 21/59 29 38 


Philosoft-Platine für CPC 6128 
Textverarbeitung + Assembler + 
Disassembler im Eprom DM 200,- 
Tel.: 05 11/46 92 39 


CPC 6128 gr. Mon. + 2. Floppy + NLQ 
401 + Datelstar + Starwriter + div, a. 
Progr + div. Literat. + CPC International 
ab 1,86 u.v.a.m. geg. Gebot zu verk. 

041 31/18 99 55 ab 18 Uhr 


Joyce + 256 K + DBase + Prompt + Small 
C + Cyrus + Prompt-Dru. + 8 Data Box + 
40 Disk + Literatur + div. Programme 
VB 1800,- DM, Tel,: 0 60 41/45 58 


Schneider CPC 464 + FD-1 + NLQ 401 
(auch einzeln) zu verk, 

Tel.; (09 21)4 45 20 ab 18 Uhr 


CPC 6128 Farbe, Dr. Graph, Dr. Draw, 
Profi Painter, Leerdisk,, Spiele, Cass.-Rec,, 
Computertisch, div, Lit, zu verk. 

Preis DM 1500,-, Neupreis: 3500,- DM, 
Tel,; 0 20 56/5 66 94 
ab 17.30 Uhr 


Original Gralpad 3 das prof. 
Cad-System für PC (Neuw.) 
günstig zu verk. 600,- DM VB, 
Tel.; 0 67 72/51 25 ab 17 Uhr 
Henrich, Bahnhofstr. 14, 
5429 Bogel 


CPC 464 (mono), DMP 2000, Software, 
Bücher, CPC Int. ab 8/85, Preis VB 
Tel,: 0 64 31/48 66 


CPC 464-Farbe + DD1 + Lit. + 10 Disc (Sp. 
+ Anw.)/VB: 1100 DM/ 0 22 41/6 82 38 


Joyce PCW 8256 kompl. System wie neu 
Preis SFR 1000,- DM. 

Hirschburger Max, Postfach 24. 

CH 3000 Bern 13, Tel.: 031/2293 42 


Verkaufe Schneider PC 1512 mit 
original Software und Handbuch 
PC mit 640 K, VB 1400,-DM, 
Tel.: 0 75 52/1245 


Verkaufe Schneider CPC 464, Gr, 

DDI-1 Drucker Magnasonic PDM-8, 

Lit, u. Soft, u.a. Wordstar VB 1000,- DM 
R. Walk, Dreieichslr. 10/48 
6092 Kelsterbach 


Vortex SP512, NLQ401 zu verk. 
Preis VB Tel. 0 21 81/7 33 12 


Schneider PC MM/SO mit 
20 MB Festplatte m. Garant. 

nur 2595,- DM 


Speichererw, JOYCE 73,-DM 

2. Laufwerk PC/360 KB 399,- DM 

SlarWriterPC 398,-DM 

Schneider Wordstar 199,-DM 

COMPUTER-TEAM 
2190 Cuxhaven 1 

Tel,: 0 47 21/2 22 99 G 


Schneider PC * Festplatten * Software * 
Neue und gebrauchte 464/664/6128/ 
Joyce/Keybord/Fioppy/Drucker' Nur 
Laufwerke: 3‘‘+3,5“=195,- OM; 

51/4“=285,- DM * Ankauf bei System 
Wechsel *1 Reparaturservice * 

Manfred Kobusch, Bergenkamp 8, 

475 Unna, 0 23 03/1 33 45 G 


PC-1512,640 K, MM-DD -i- Modem + profes¬ 
sionelle Software + Compiler + 

Spiele zu verkaufen, 

Tel,: 0 29 73/4 56 o. 02 19/7 4823 


Neuwert, DD11 -i- Softw, -i- Joyst. + org, 
CPM Handb. Preis VB 0 70 33/69 67 


CPC 464 Color -i- Data-Bücher + Kass, 
DM 800,-, Tel.; 0 26 33/15 38 


**“****Zubehör für PC-1512**”"” 
Speichererweiterung 69,- DM 

Co-Prozessor 8087-2 398,-DM 

Zweitlaufwerk incl. E-Kit 298,-DM 

zuzüglich Verpackung und Nachnahme 
Ing. -Büro M. Schiller 
Hauptslr, 2,8044 UnterschleiBheim 
Tel,: 089/3 10 64 53 G 


Joyce Plus - wenig gebraucht incl. 
DBase 2, Mulliplan origin. incl. 
10Disketten-DD,VB 1800,- DM, 
Tel,: 0 61 72/8 24 73 


Verkaufe wegen Hobbyaufgabe 
CPC 464 Farbe, F1D Vortex, 

SP 256 Vortex, Selkosha GP 500 CP, 
Data Becker Bücher, Disketten 
Joystick u.v.m., VHB 1800,- DM 
Tel.; 07 21/4 23 03 


Joyce 1400,- DM, Joyce Plus 2000,- 
abs. neuw. jeweils mll Dis. -i- Farbb. 
Spielen -i- div. Programmen mind, 10, 
neuer Star-Drucker NB 24-15 mit 
Einzelblatleinzug 1850,- DM 
Privatverkauf 0 20 41/5 81 00 + 5 82 00 


CPC/PC/Joyce 

10 St, Maxell 3" Disketten = 63.- + 6,- DM 
Porto Info gg 0,80 DM Rückporto 0431/970142 

Jürgens, Postfach 2620,2300 Klef 917 25 

G 


CPC 6126 Grün -i- Zweillaufwerk -i- Netzteil 
5/ 12V -I- DMP 2000 + 30 Discs teilw m. 
Software -i- Starwriter + Bücher + viele 
Zeitschriften DM 1700,- 

Schönherr0 81 91/6 68 41 


6128 grün-t-SP 1000 - 1 - 2.3'* Laufw -t- 
Kass-Rek., WS, dB, 50 Disk + viel Lit, 
-i-Zub. VB 2260, Tel: 089/7 91 64 14 


CPC 464 Farbe -i- Vortex-SPW512 + DD1 
-I- AMX Mouse + div. Bücher Software für 
ca.2200.- DM D-i-C nur Originale 
ca.40 Hefte-i-Databoxen. **Sehr günstig** 
Nur Selbstabholer * Hamburg * 

Chiffre: 090987 


CPC 464 2 Laufwerke 512KB-RAM 
u.a, dBase 2, Buhl 07 61/40 52 21 


CPC-464 Farbm. 2 Floppy, NLQ-401 
Textpack/Turbo-Pascal je 100,- DM 
10 Spiele ab 30,- OM auf Disk org 
alles: 1000.- DM. Einzeln auf Anf 
Tel,: 00 41/63/22 98 49 ab 17.30 Uhr 


CPC 6120 Grün -i- 2. Lw, -i- Drucker/ 
Traktor -i- MP2 + Joyst. -i- Abdeckungen 
Diskbox -I- Starwriter 3.0 -h MOS -i- 
Datamat -i- Textomat -t- Spiele -i- 
10 Disk-•-Literat DM 1800,-, 

Tel; 02 21/24 55 57 


Suche Software 


ROULETTE-SOFTWARE gesucht für 
CPC 6128 Ernst Elsner 

Kirschweg 15.3414 Hardegsen 5 


Suche Software für CPC 6128 
Textverarbeitung, Grafik, 
CAD, Kalkulation 
und Dateiverwaltung 
Telefon: 0 22 51/5 39 48 


Strategie-ZKriegssimulationen 
wie z,Bsp. KAMPFGRUPPE zu kaufen 
gesucht, Tel.; (0 28 55) 34 61 
Nach 17 Uhr. 


Für CPC 464 Turbo Pascal, dBase. 
Multiplan, Wordstar, Platinenkit 
Wieser, Postf 24,7149 Freiberg 


Suche APL2 für Joyce (oder CPC,,,) und Apple 
G.Friege, Georg-Arerds-Weg 29c, 56 Wippert. 21 


Suche Kalkprogr, u. ÜberschR. 
j. FD1 im Tausch gegen and Soft. 

D. Maron, Bahnst 26,2085 Quickborn 


Suche Hardware 


Suche F1-X für 464.0 25 95/12 57 


Suche Epromkarte inclusive 
Software für CPC 6128 Max 150,- 
Tel.: 0 21 91/66 52 27. Nach 16 Uhr. 


Suche Drucker für Aufz. auf Cass, (Leihen) 
Oskar Wolf, Steiner Ring 26,8192 Geretsried 


S, Hw: dataphon s21d, 0 24 21/1 03 27 


Farbmonitor für CPC-464, 
Nur schritll. Angebote 
Michael Göbel, Grabenstr, 3 
3430 Wilzenhausen 1 


Tausch 


Tausch-Verkaufe orig, CPC - Spiele, 
Anwendung - Zeilschriften. F. G„ 
Poslfach 1246,3590 Bad Wildungen 


Verschiedenes 


PC 1512-lJser. Witze als Textfile abgespeichert auf 
formatierter Disk. Bearbeitung mittels 
Textprogramm 

200 verschiedene Witze 15,- DM 
500 verschiedene Witze 30,- DM 
Lieferung nur gegen Scheck, 

Reiner Wolf, Beller Weg 14,5449 Buch 


■ 

Computerkauf 

■ 

■ 

leichtgemacht 

■ 

■ 

Wir finanzieren Ihren Computer 

■ 

■ 

und Zubehör. 

■ 

■ 

Inlo anfordern 

■ 

■ 

Auch für Händler interessant 

■ 

■ 

SKG Dank, Postfach 321, 

■ 

■ 

Cecilienstr. 4 

■ 

■ 

6600 Saarbrücken 

■ 

■ 

Tel. (06 81) 3 03 01 11. 

Gl 


Schneider PC 1512 User Club! 

Wir arbeiten überregional und bundesweit, 
und geben damit allen PC-Besitzerr die 
Möglichkeit, die monatliche Club-Zeitschrift 
und die Software zu beziehen und von 
unserem Club zu profitieren. 

Gegen Rückporto erhallen Sie eine 
unverbindliche Info von 
Rolf Knorre, Postfach 200102, 

5600 Wuppertal 2 


Suche Kontakt zu Joyce-Üsern 
(DFÜ; Anw; Spiele) 0 24 09-93 58 


Suche zu SIPERCALC 2 deutsche Anleitung 

Einführung und Training zu Supercalc 2 

Golomann Wrlag, München 

Aierstock Karl-Josef 

Bellerstraße 97 A 

5030 Hürth-Efferen 

Tel: 0 22 33/632 69 


Suche Club in F/m. wo ich ua. die Bedienung 
des Schneider PC 1512 erlernen kann 
Kampa, Fahrgasse 21, 

6000 Frankfurt/M 1 
Eilt sehrl 


Anleitungen: CPC: Wordstar 3,0, 
Microsoft Multiplan, dBase 2; 

Joyce: dBase 2* Je 25 DM * 08 21/8 43 50 


FACHBUCH-VERSAND JÜRGEN KRISSEL 

Kostenlose Info 4/87 anlordern 

Jürgen Krissei, im Viertel 5 

D-5409 Dienethal, Tel,: 026 04/18 18 G 
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Sichern Sie sich Ihre 
»PC Schneider International» 

Ausgabe für Ausgabe mit einem 
zusätzlichen Preisvorteil. 

Abonnieren Sie jetxt! 
Top-information 
für ihren 

Schneider Computer. 


PC Schneider International 
kostet im Abonnement: 


Im Inland und Westberlin: 

IQr 1/2 Jahr 

30.- DM 


für 1 Jahr 

60.- DM 

Im europäischen Ausland: 

für 1/2 Jahr 

45- DM 


für 1 Jahr 

90.- DM 

Im außereurop Ausland 

für 1/2 Jahr 

60.- DM 


für 1 Jahr 

120.- DM 


BITTE BENUTZEN SIE DIE BESTELLKARTE 

DMV GmbH ■ PC Schneider International 
Postfach 250 3440 Eschwege ■ Tel (0 56 51) 67 02 


»>Kleinanzeigen-Markt<< 

Private Anzeigen: Nur DM 5,- je angefangene Zeile, inkl gesetzlicher Mehrwertsteuer. 

Geschäftliche Empfehlungen: DM 8, - Je angefangene Zeile, zzgl gesetzlicher Mehrwertsteuer. 

Kreuzen Sie bitte an, in welche Rubrik (s. Karte) Ihre Anzeige gehört, schreiben Sie Ihren Text in die Karte (jedes Kästchen = 
ein Zeichen; Buchstabe, Satzzeichen oder Wortzwischenraum). 

Achtung I Der Abdruck erfolgt nur gegen Vorkasse (Verrechnungsscheck) 

Bitte veröffentlichen Sie meine Anzeige in der nächsterreichbaren »PC Schneider International« für 
LJ private Zwecke n gewerbliche Zwecke (gewerbliche Anzeigen werden mit G gekennzeichnet) 

Das ist der Text; (Bitte Oeuf//ch in Druckbuchstaben schreiben!) 


1 

L1 M IM 

1 



1 



1 

1 

1 l 1 1 


1 1 1 




MM 


1 1 

.1111 




MINI 





1 : 
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1 1 







1 1 
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1 1 

1 1 






1 1 [ 1 1 



L_L 

.1 i 

1 

1 j 



1 

1 1 

1 

1 :.Mi 1 1 1 1 1 


□ Die Anzeige soll als Chiffre-Anzeige erscheinen (nur möglich bei Privat-Anzeige) 
Chiffre-Gebühr 10,- DM inkl MwSt zzgl zum Anzeigenpreis 
In dieser Rubrik; 


□ Biete an □ Suche □ Tausch □ Stetlenmarkt/freie Mitarbeit 
n Hardware □ Hardware □ Geschäftsverbindungen 

n Software □ Software □ Verschiedenes 


Bitte Ihre 
Kleinanzeige mit 
der nebenstehenden 
Karte bestellen 


Absenden an: 
DMV Verlag 
Postfach 250 
3440 Eschwege 


Bei Angeboten. 

ich betätige, dali ich alle Rechte an den 
angebotenen Sachen besitze 


Datum 


Unterschrift (bei Minderjährigen aes geseizl Vertreters) 







































































































I Händlerv.erzeichnis 


Berlin , / m. Hamburg m Basel 




Offminqszeiien Mo-Pr : 

[O-IS ühi • Sa 10-13 Ur.r 

WOLFGANG MÜLLER und 
JÜRGEN KRAMKE GbR 

"mükra 

DATEN-TECHNIK 





Berlins größtes 
Electronic-Kaufhaus 



Stresemannstr.95 
1000 Berlin 61 
•©(030) 261041 


SEörner¥ I 

Büro co»putV'^^V 5 ^Laden 

Da» FachgeschäK speziell iOr i.auaoefallenaa“ Cpmpuler-Zubahör. 

Mit deratungl Riesenausnahl _ _ _; 

C^Schneider 5 VOtTeX 

i9cortPur£gcii-‘i$ion .TT. . 

UuvMblMbch ’(nsl rsintchauenl SIS werden Oberrascht seinl 
B*2, Innibiucker StraBeM V0i| jnO<> Eine Filiale der flima 
am Beyerlaehan Plah / QU äjfc B Oiebedarf Th brnar , 



Löhne/Ostwestfalen 


r'Jj 

Schneider Vertragshändler & Servicecenter 

1 

Hard- S Software von A-Z für Ostwestfalen 


F«in IBEMEIE« 

A 

•(kmputer’Hifi’Vkleo'TV 


alles KIr Schneider vom 464 - Joyce 

•m RiepMari ■ MUir Kr. It * 4ITt UIm I * TiL OlTU/StM 


^CoMRITEREI^ 



Freiburg 


A ATARI ®pSchneider 

Commodore 

Comput«rt«chnlk DIpl.-Ing. Neuderth 

FranUurterSlr.23 6090Rüsselsheim Tel. 106142)$M55 l)c4182902coirpld 


Bonn 


Radio-FERNSEHEN/^ ^ 

HIFI-VIDEO 


StMVK'E SERVICE SfHVK( nvu 


Plittersdorfer Straße 206T elefon (02 28) 36 40 29| 


Castrop-Rauxel 


Nürnberg 


Hocnsiralle 11 
8500 Nürnberg 80 
Tel 09'l/28 90 2e 

_Ci^Schnelder_ 

^CCr!Pjrfi?C/i.‘;S(0n 

Wir lUliren 2j den original SCHNEIDER-ProAjkten Soflware, Bücher und 
Zubehör verschiedener Firmen wie DATA BECKER, VORTEX, CUMANA. 
ISS, RUSHWARE, MARKT & TECHNIK, SVBEX, VOGEl-VeilaB usw.l 


OCGUTE IDEE NACH DS^I ArOEREN ur.->».rac.r 

Schuster Electronic 

(omnu' * 'OiMh/K* « «iU'i 

^ Schneider 

Vertragehandlei 
Commodore 

^ Wrlrafswcrhstalt 

Obere Munslerslr 33 4620 Castrop-Ruid (02305 )3770) 




^\VVVVVVWWWVX> 

COMPUTER-STUDIO 

BASEL 

Gt.kSchneider 

m9 COflPUTER DIPI5I0I1 


PC 1512 


ffeiurstraßt 2. Nahe Neuweilerplau. 40S4 Basel Vidaoraa 
Telefon 10611 3914)4 

vxxxxxxxxvsxvsxvx 


Schneider 

IS^conpuTEROii-'isiDn 

Vertragshändlsr 

Büro Knüppel & Co. 

Computer und Büromaschinen 
Riehenring 81 (MUBA) 

4058 Basel 
Telefon (061)261262 



Eintragungen 
im Händlervarzelchnis, 
nach Städten geordnet, 
kosten je mm Höhe 6, - DM bei 
einer Spaltenbreite von 58 mm. 
Einträge möglich 
mindestens 
6 X innerhalb eines 
Insertionsjahres. 

Nähere Informationen: 

Woifgang Brül 
Telefon (05651) 8702 


Düsseldorf 


^□/Schneider 

rnmoi iTrn mi iicii~>n 

_ LUIII U I Ll^ uii^ iDiut i 

Beratung 
Vertrieb 
Service 

Büro ORGANlSATiON DATENTECHNIK VerlriebtgeSENschall mpH 
40DD Oü<;';f»idnrf 1 P»if?df!n«ijfaße i3 Tgi D2i1 308071 


Kassel/Vellmar 


Schneider 

^COnPUTERDIl^lSIOri 


OmbH 



jfoeiectfonic^ 

HollandlBCheStr. 121,3902 Vellmar, Tel.: 0561/9201 60 


Anzeigenschluß für die 
Ausgabe 12/87 
von 

PC Schneider International 
Ist der 

21 . 10.87 

Erscheinungstermin 
Ist der 

25.11.87 
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ABD Electronic.68,107 

.Arnor.125 

BBG.31 

Büro für Softwareentwickluiig... .37 

Byte me.101 

CMZ-Verlag.101 

Com-Pro.8 

CSV Riegert.59 

Digital Research.152 

DMV.25,29,38,39^1,67,87,99,109, 

.114,121,L34,135,145,147 

Dnbbertin.31 

Elektronik-Center.8 

Fischerwerke.85 

GAI. 59 

G-Computerstore.49 

G K Electronic.23 

Göddecker.127 

Hard- u. Software Gunkel.10 

Habersetzer.107 

Hashagen.10 

Hen.schke.73 

Infosystems.27 

Interest Verlag.119 

Keil. 71 

Kempenich.49 

Kingsoft.129 

Köhler + Hörter.63 

Kotulla...68,151 

Merz.23 

Mükra.95 

Naujoks.71 

Prosoft.....143 

PR8 Softwaredienst.17 

SEK. 11 

Signum-Medien-Verlag.9 

SPI. 83 

Syndrom.51 

Schneider Computer Division.47 

Schneider Data.103 

Schuster.....75,76,77,78 

Star Division.2 

TeWi-Verlag.137 

TG-Soft. 123 

Tornado Computer.7 

\an der Zahn.89 

Völkner Electronic.19 

Vortex.53,81,139 

W^deck-Software.69 

Weeske.56,57 

Werder. 37 

ZS-Soft.93 


Eine Bitte an unsere 
Abonnenten 

Vermerken Sie 
bei Schriftverkehr 
und Zahlungen 
neben der 

vollständigen Anschrift 
stets Ihre Abo- 
Nummer 

Sie vermeiden 
damit unnötige 
Verzögerungen 
bei der 
Bearbeitung 
Ihres 

Abonnements. 
Vielen Dank. 

Ihre 

DMV-Versandabteilung 


Anzeigenschluß 
für die 

Ausgabe 12/87 
von 

PC Schneider 
International 
ist der 
21-10.87 

Erscheinungstermin 
ist der 
25.11.87 
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Mitglied der Informationsgemeinschaft 
zur Feststellung der Verbreitung von 
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»PC Schneider International« 
erhalten Sie ab 28. Oktober 
bei Ihrem Zeitschriftenhändler 



Zubehör- und Peripherie in einer großen Über¬ 
sicht. Der Markt ist sehr vielfältig. 



Maze- unser Spielelisting macht Sie mit einer raf¬ 
finierten Programmiertechnik bekannt. 



Schneider PC 1512 - Spezialmodus transparent - 
ein Anwendungsbeispiel in Turbo-Pascal bringt 
alle 16 Farben gleichzeitig auf den Bildschirm. 


Berichte: 


Computerzubehör auf einen Blick 

— die kleinen Dinge sind es oft, die ei¬ 
nem das Leben versüßen. Für 
Peripherie- und Zubehörprodukte im 
Computerbereich gilt das ebenso. 
Grund genug, Ihnen einmal alles In¬ 
teressante, Originelle und vielleicht 
auch Überflüssiges in einer großen 
Marktübersicht zu präsentieren. Die 
für Schneider- Computer erhältliche 
F^ette ist derart vielfältig, so daß un¬ 
ser wahrlich nicht kleines Fotostudio 
aus den »Nähten« zu platzen drohte. 

Peripherie aus deutschen Landen 

- festjederCPC-, inzwischen aber auch 
viele Joyce- und PC-Besitzer haben 
schon einmal von der Fa. Vortex und 
deren Produkten gehört. In nunmehr 
3 Jahren hat Vortex eine ansehnliche 
Produktpalette entwickelt und für so 
manche Überraschung im Peripherie- 
Sektor gesorgt. Anläßlich des Vortex- 
Umzuges in die neuen Geschäftsräu¬ 
me hatten wir Gelegenheit, einmal 
hinter die Kulissen der bekannten Fir¬ 
ma zu schauen und berichten von un¬ 
seren Eindrücken sowie möglichen 
neuen Produkten. 


Programme: 


KC-Copy 

— das Kopierprogramm für alle Schnei¬ 
der CPCÜ 

KC-Copy besticht durch seine enorme 
Leistungsföhigkeit und ist dabei äu¬ 
ßerst komfortabel und einfech zu be¬ 
dienen. Sicherheitskopien jeglicher 
Programme sind nun überhaupt kein 
Problem mehr — mit KC-Copy erhal¬ 
ten Sie ein überzeugendes vJferkzeug 
für Ihre tägliche Computer-Anwen¬ 
dung. 

MAZE 

— ein spannendes Labyrinthabenteuer. 
Ein mehrere Bildschirm umfassendes 
Spielfeld, das in vier Richtungen 
scrollt — das gab’s noch nie in PC 
Schneider Int.! 


CP/M: 


Interessantes zu CP/M plus 
— das SHÖW-Kommando. Mit diesem 
CP/M-Dienstprogramm können Sie 
den Zustand ihrer Disketten überprü¬ 
fen. Wie das funktioniert, zeigt unser 
Artikel, praktische Beispiele verdeut¬ 
lichen den theoretischen Inhalt. 


Joyce: 

Ausnahmsweise keine Anwendung: 3D- 
Mühle hat uns so gut gefellen, daß wir es 
Ihnen nicht vorenthalten wollten... 

Supercopy 

— dieses leistungsfähige Kopierpro¬ 
gramm sorgte schon auf dem CPC für 
Furore. Die Leistungsdaten der Joyce- 
Version erfehren Sie in unserem Test¬ 
bericht 

Ansonsten steht die nächste Jcyce-Rubrik 
unter dem Zeichen LocoScript. Ein klei¬ 
ner Vorgeschmack: Ändern Sie den Lo- 
coScript-Zeichensatz... 


PC: 


— Eine Review des Fibu-Star-Pro- 
gramms unterrichtet Sie über Vor-und 
Nachteile... 

— Unsere Serien »BASIC2« und »von 
CP/M zu MS/DOS« bringen lehrrei¬ 
chen Stoff in unterhaltsamer Form... 

— dort wo große Datenmengen anfallen, 
stellt sich immer wieder die Frage 
nach einem schnellen und preisgünsti¬ 
gen Backup-Medium. Wir haben ei¬ 
nen Tape Streamer für Sie getestet. 


, Tips &li'ick8: 

Easy Printer Nachlese 

— nach dem großen Erfolg des in Ausga¬ 
be 8/87 veröffentlichten Listings, Easy 
Printer, haben wir noch interessantes 
Material dazu fertiggestellt. 

Unter anderem gibt es Hinweise zur 
Lösung des Hardcopyproblems sowie 
eine tolle Ergänzung. 

Rambasic 

— komfortables Umschalten der Banks 
beim CPC 6128. 

Einfecher geht’s wohl kaum noch... 


Abenteuer: 


Wer Stephen King, Lovecraft oder C. A. 
Smith mag, der wird das neue Infocom- 
Abenteuer »Lurking Horror« lieben. Es 
erwarten Sie gar schreckliche Erlebnis¬ 
se auf einem monsterverseuchten 
Campus. 


Software Reviews: 


Das vierte Spiel aus der allseits bekann¬ 
ten Epyx-Sport-Serie liegt endlich auch 
als j^aption für die CPC-Rechner vor. 
Was ist dran an World Games? 
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Wie teuer darf Low Cost-Software sein? 

WoUen Sie wirklich 400 Mark für ein Textprogramm ausgeben, das auf Ihrem IBM-PC, Schneider¬ 
PC oder Kompatiblen läuft? Das war bisher, was man sich unter Low Cost-Software vorstellte. 

Aber jetzt ist Schluß mit diesen überhöhten Preisen! Wir sind stolz, Ihnen eine Textverarbeitung 
präsentieren zu können, die alle Preis- und Leistungsbarrieren bricht: 


TextMaker 

TextMaker. Für nur 148 Mark. Keine Sparausgabe. Keine Juniorversion. Keine teuren Zusatzpakete. 
Sondern volle Leistung zu einem wirklichen Superpreis! 

TextMaker. Ein Programm für Profis und Einsteiger gleichermaßen. Denn TextMaker paßt sich Ihrem 
Wissensstand an. Es überfordert Einsteiger nicht und bietet dennoch alles, was sich Profis wünschen. 

Bevorzugen Sie Pulldown-Menüs zur Texteingabe? Ziehen Sie Funktionstasten vor? Oder arbeiten Sie 
lieber mit einem WordStar-korapaliblen Befehlssatz? TextMaker unterstützt alle drei Editiermethoden. 

Und erlaubt die Umbelegung der Tastatur. 

Es fehlt natürlich der Platz, alle Vorzüge von TextMaker aufzuzählen. 

Blockbefehle, Ausgabeformatierung, sagenhafte Geschwindigkeit * das 
ist selbstverständlich. Aber dies ist bei weitem nicht alles. Vielleicht 
geben Ihnen die folgenden Pluspunkte eine Vorstellung von der Leistungs¬ 
fähigkeit dieses einmaligen Textprogramms: 

• Editieren in bis zu neun Textfenstern 

• Integrierter Druckerspooler 

• 26 Tastaturmakros für Texte und Befehle 

• Adressenverwaltung zur Erstellung von Serienbriefen 

• Automatisches Sichern des Textes in vorgebbaren Zcitabständen 

• Per Tastendruck zwischendurdi ins DOS und wieder zurück 

• Phonetisches Suchen: Mayer? Meier? Maier? Kein Problem! 

• Die UNDO-Taste rettet gelöschte Textzeilen 

• Layout auf Bildschirm: Paßt die Randeinstellung? Stimmt der Seitenumbruch? 

• Drucken auf Bildschirm: kursiv^ fett, unterstrichen , breit, doppelt hoch ... 

• Linealzeilen im Text: Schreiben mit beliebigen Formateinstellungen 

• Integrierter Diskettenmanager, der sogar Disketten formatiert 

• Mit der ASCII-Tabelle können Sie den gesamten IBM-Zeichensatz nutzen 

• Rechnen im Text: wie in BASIC mit 26 Variablen und vielen Funktionen 

• Erstellung von Inhaltsverzeichnissen, Fußnotenverwaltung 

• Unterstützung für Matrix-, Typenrad- und Laser-Drucker 

• Für alle IBM-kompatiblen PCs mit 256 KByte RAM oder mehr 

• Unterstützung für Farbgrafikadapter, Monochromkarte und EGA-Autoswitch 

Entwickelt von dem bekannten Fachjournalisten Martin KotuUa. Er weiß, was 
Gelegenheitsschreiber, Schreibprofis, Einsteiger und Fortgeschrittene wollen. 

TextMaker ist die erste konsequente Verwirklichung aller Ideen aus jahrelanger 
Benutzung von Computern. 

MARTIN KOTULLA 



Komfortable Pulldown-Menüs 


Kie teuer darf Low Cost-Software sein? 
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Besser als WYSIWYG: Preview auf Bildschirm 


Nur 

148 Mark! 


SoftMaker 

0 

Grabbestraße 9 

8500 Nürnberg 90 

Telefon 0911/30 33 33 () 


Bitte Coupon ausßllen, ausschneiden und an SoftMaker schicken. 


Bitte schicken Sie mir erst einmal Name:_ 

unverbindlich weitere Informationen. Straße:_ 

Jawohl, TextMaker fasziniert mich! Unterschrift: 

Senden Sie mir dieses sagenhafte Programm 
für DM 148,- zzgl. DM 10,- Versandkosten. 




















Die SCHNEIDER PC’s sind einfedi super. 
Mit GEM®-Software wird’s superein&ch. 





GEM?— 
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GEM'Software von DIGITAL RESEARCH beflügelt Ihren SCHNEIDER-PC. Mil einer überlegenen grafischen Benutzeroberfläche GEM Desktop and einer Familie 
von Anwendungspaketen, die Sie rasch zum Computer-Profi macht: 


GEM Draw 


GEM Graph 


GEM WordChart 


GEM Write 


GEM IST Word Plus 


Flexibles Zeichenprogramm für Skizzen. 
Diagramme, Übersichten. Illustrationen. 
Preislisten. 

Geschäftsgrafik-Programm für Säulen*. Tor¬ 
ten*. Linien-. Flächen-. 3D-Grafiken, sowie 
Landkartendarstcllungen. Kompatibel zu 
den meisten Tabellenkalkulationsprogram¬ 
men. 

Textpräsentalionen einfach, schnell und pro¬ 
fessionell. Tabellen. Agendas, Übersichten, 
eben alles was textorientiert ist. 

Texiverarbeitung einfach gemacht. Leichte 
Bedienung, Mischung von Text und Grafik in 
einem Schriftstück. 

Textverarbeitung der Spitzenklasse. Bis zu 
vier Textfenster gleichzeitig. Serienbriefe, 
verschiedenste Druckarten. Rechtschreib¬ 
hilfe . 


GEM Programmei^Tbolkit Werkzeug zur Erstellung eigener GEM-Pro- 
(in englischer Sprache) gramme. Vom Entwurf von Ikonen über Auf¬ 

bau von grafischen Menüs und Benutzerdia¬ 
logen bis hin zum Schreiben und Debuggen 
von GEM-Programmen. (Zusätzlicher C- 
Compiler z.B. Zorland C erforderlich.) 

GEM Draw Business Library Grafische Bibliothek von über 40 Einfassun¬ 
gen. Organigrammen und Symbolen für 
Zeichnungen, Tabellen und Textpräsentatio¬ 
nen. Einsatz mit GEM Draw und GEM 
WordChart. 


GEM FontEditor Zeichensatzgenerator und -editor für eigene 

Schriftsätze, Outline. Schattenschrift, Script. 
Symbole und ausländische Alphabete. 

GEM Diary Terminkalender, Merker und Karteikasten. 

GEM Fonts & Drivers Pack Treiber und Zeichensätze für gängige Ma¬ 
trix-, Typenrad- und Laserdrucker. Farbfä- 
higkeit und Auflösung der Peripheriegeräte 
können von jeder GEM-Applikation ange¬ 
sprochen werden. 


GEM-Soflware und der SCHNEIDER-PC: Mit Ihnen als Dritter im Bunde ein unschlagbares 'ftam. 




d DIGITAL 
RESEARCH 

Vfe ir.ake Computers work.'’' 


I 


Die GEM-Software für die Schneider PC’s erhalten Sie bei Ihren Schneider-Fachhändlern. 

Erwähnte Computer- und Soflwarebezeichnungen sind Handelsmarken und/oder Warenzeichen der entsprechenden Herstellei 






















































